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Vorwort 

des Herausgebers 

Ihr Computer wartet darauf, Sie auf die Probe zu stellen. 
Spiele mit bewegter Grafik, Denkspiele, Ratespiele und 
Rätsel - alles zu Ihrer Unterhaltung. 

Der Band enthält eine Vielfalt von Spielen, Die Pro¬ 
gramme sind verfaßt von einigen der begabtesten Jung¬ 
programmierer bei uns und bieten eine ganze Reihe 
von Methoden, Programmierprobleme zu lösen. 

Wenn Sie sich mit den Listings näher befassen, lernen 
Sie viele neue Kniffe und Wege kennen, die Sie für Ihre 
eigene Programmierung nutzen können. Und sobald Sie 
die Programme in der vorliegenden Form beherrschen, 
wollen Sie vielleicht Verbesserungen ausprobieren. Ein 
„perfektes“ Programm gibt es bekannüich nicht, also 
können die gebotenen Programme durch Ihre Talente 
nur gewinnen. 

Sie brauchen jetzt nur noch umzublättem und die Pro¬ 
gramme einzugeben. Ich kann nur hoffen, daß Ihnen das 
Spielen soviel Spaß macht wie vorher uns, den Band 
zusammenzustellen. 

Tim Hartnell, Herausgeber der Reihe 

London 

März 1983 


























Stadt 


Stadt 


STADT ist Paul Tolands Version des Spiels, in dem ein 
Flugzeug eine Stadt anfliegt und die Wolkenkratzer weg¬ 
bomben muß, um landen zu können. So, wie es im Folgen¬ 
den gelistet ist, hat das Programm einen sehr hohen 
Schwierigkeitsgrad (um die Wahrheit zu sagen: es ist 
kaum zu schaffen). Eine Spielerleichterung können Sie 
sich verschaffen, indem Sie die Wolkenkratzer etwas 
niedriger halten. Dies geschieht, indem Sie aus der 12 
in Zeile 30 eine niedrigere Ziffer machen, eine 8 zum 
Beispiel. Wenn Sie lieber ein Dorf als eine Stadt anflie¬ 
gen wollen, versuchen Sie es mit 10 FOR 1= 8 TO 25. 

Die Stadt wird nach Belieben immer wieder ganz anders 
aufgebaut. Zum Bomben-Abwurf drücken Sie irgend 
einen Knopf, nur nicht BREAK. Wenn Sie eine Bruchlan¬ 
dung bauen, drücken Sie irgend einen Knopf außer N; 
dann kann das Spiel von neuem beginnen. Wollen Sie 
das Programm im LOADED-Status als selbststartendes 
Spiel benutzen, so speichern Sie es mit GOTO 340. 


1 

REM " 

STR DT " 

PAUL TOLAND 

l ~l 

RAND 



10 

FOR I 

= 1 TO 

31 

20 

LET C 

$=CHR$ 

< RMD*10 + 128) 

30 

FOR ,J 

= 21 TO 

21-INT CRND*1 

STEP -1 



4.0 

PRINT 

AT U , 

i.; c $ 

50 

NEXT 

,j 


60 

NEXT 

I 


70 

LET B 

= 0 


9 0 

LET PL=1 


9 5 

LET P 

= PEEK 

1 £•3 9 6 + 2 56+PEE K 

F, 3 9 7 

+ 1 
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97 LET P L = P + 1 
100 POKE PL ,0 
110 LET N = P E E K (PL + 1) 

120 XF N =0 THEN GOTO 150 
130 IF N < >118 THEN GOTO 2 50 
14-0 LET P L = P L + 1 
150 LET PL=PL+1 
160 POKE PL.130 

170 IF INKEY$>"" AND 6=0 THEN L 
ET B=PL 

180 IF 6=0 THEN GOTO 24-0 
190 POKE 6,0 
200 LET 6=6+33 
210 LET D=B 

2 2 0 IF P E E K. 6 > 0 O R 6 > P + 7 2 4. T H E N 

LET 6=0 

225 POKE D,28 

227 LET 1=1 

230 POKE D.0 

240 GOTO 100 

250 POKE PL.131 

251 POKE PL,132 
2 52 LET I = lül 

253 POKE PL,133 

254 LET 1 = 1** 1 

255 POKE PL,134 

256 LET I = 1 * * 1 

257 POKE PL,135 
256 LET 1=1**1 
259 POKE PL,23 

26© PRINT RT 8,10.; "BRUCHLflNDUNG 

2 70 GOT O 2 9 0 

280 PRINT RT 8,5;"SIE HABEN""8 
HEIL GESCHAFFT 

290 PRINT TAB 5.; "NOCH EINMAL.'? < 
J/Nj " 

3 00 IF IN K EY $ = “" T H E N G OTO 3 0 © 
310 IF INKEY$="N" THEN STOP 
320 CLS 

330 RUN 

340 SAUE "STADT" 

350 RUN 
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Falle 


Falle 


EinraffinierterFallenstelleristDilwynJones, der dieses 1K 
Graphics-Spiel entwickelt hat. Sie sind das arme Opfer, 
verkörpert durch das+-Zeichen, das sich, geführt von den 
“5 - (Links), “6- (Abwärts), “7 - (Aufwärts) und "8”- (Rechts) 
Tasten, über den Schirm bewegt. Für jede einzelne Be¬ 
wegung werden Sie mit einem Punkt belohnt. Der Com¬ 
puter versucht, Sie in die Falle zu locken, indem er Sie 
mit seinen Steinen einkreist. Sie haben das Spiel ver¬ 
loren, wenn Ihnen kein Freiraum mehr für eine Bewegung 
bleibt. (Gewinnen ist, wie im wirklichen Leben, unmög¬ 
lich.) Ihr Punktestand wird am Schluß angezeigt. 


10 RAND 
20 LET R 
30 PRINT 
1 ; hT 2,0 ; 
32 REM 2 



MAL 13*GRRPHIC SPRCE 


40 

FÜR X=0 TO 

I 10 

50 

60 

PRINT "li ,, 
NEXT X 

TR Ei 12; ■■■'• 

70 

LET X = INT 

CRNDtll»+1 

SO 

LET Y = I NT 

C R N D*11j +3 


90 PRINT RT Y , X 

100 IF PEEK CREEK 16398+256*PEE 
K 16 3 99) =126 TUEN GOTO 190 
110 P R I NT " + " RT Y + ( R N D < . 5 ) - C R N 
D< .5 > ,X+ C RND< .5) - C RND < .5) ; RN 

D PEEK CREEK 16398+256*PEEK 1639 

120 L ET R = R + 1 
130 L ET R $ = IN K E Y $ 

140 IF R $ i "5' 1 OR R $ >"8" TUEN GO 
TO 130 

150 PRINT RT Y,X;" " 

160 LET X = X + C R $ = " 6 " j - C R $ = " 5 " ) 
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170 

LET Y 

=Y+ 

ISO 

G OT O 

90 

190 

PRINT- 

H 

195 

STOF 


S00 

SflUE 

"TRhH" 

£10 

GOTO 

1 


' :i - < h $ 



Panzerangriff 


Panzerangriff 

In diesem Spiel, das der alte Panzerhase Nick Wilson für 
den 16KZX81 entwickelt hat, müssen Sie vom unteren 
zum oberen Bildschirm-Rand gelangen. Das ist ein risiko¬ 
reiches Unternehmen, da der Weg mit Panzerminen ge¬ 
pflastert ist, verkörpert durch schwarze Vierecke. Wenn 
Sie das Spiel mit RUN starten, erscheint auf dem Schirm 
der Angriffskurs, gesäumt von einem Explosiv-Gürtel. 
Der Panzer, dargestellt durch einen inversen Stern, be¬ 
wegt sich vom Start des Spiels an aufwärts, von Ihnen 
gesteuert durch die “0' L Taste (Rechts) und die T-Taste. 
Über das Schlachtfeld sind 60 Minen verteilt. Sie können 
das Spiel variieren, indem Sie die 65 in Zeile 75 nach 
Ihrem Belieben ändernde niedriger die Zahl, umso ein¬ 
facher das Spiel. Mit “Y" beginnen Sie ein neues Spiel. 
Wenn Sie zum glorreichen Ende der Aktion den oberen 
Bildschirm-Rand erreichen, erscheint Ihre .Panzer- 
Kommando "-Bewertung. Das Ganze ist ein temporeiches 
Spiel. Wenn Sie es zum Eingewöhnen verlangsamen 
wollen, müssen Sie 107 LET G = SIN PI hinzufügen. Das 
Graphik-Zeichen in Zeile 30 erzeugen Sie durch die 
"H'-Taste. 

Die Zeilen 12 bis 85 geben den Kurs und den Explosiv- 
Gürtel an; 100 bis 170 bewegen den Panzer nach oben 
und nach Links oder Rechts; 150 und 160 lesen die Konsu- 
len und bewegen den Panzer; 200 bis 230 lösen eine 
Explosion am Panzer aus; und die Zeilen 245 bis 360 
beenden das Spiel und drucken Ihr Ergebnis aus. 
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10 

REM PflNZERRNGRIFF 



1 1 

REM NICK I.JIL50N 



12 

RAND 




13 

ERST 




14. 

LET 5=0 




15 

CLS 




20 

FOR 1=0 TO 

31 



30 

PRINT RT 0, 

I ■■M" RT 2 

1 

, i"■ 

40 

NEXT I 




50 

FOR 1=0 TO 

2© 



60 

PRINT RT I, 

0; TR6 

3 

l: 

70 

NEXT I 




75 

FOR 1=1 TO 

65 



80 

PRINT RT INT <RND*17) 

+1,INT 

C RND *29) 




i—i F. 

NEXT I 




S 0 

LET M =20 




90 

LET X = INT (RND*28) +1 



95 

5 L O U 




100 

PRINT RT M, 

X 



105 

LET 5=5+230 




110 

IF PEEK CPEEK 16398+2 

56-tPEE 

K 16 

399)=128 THEN GOTO 200 



120 

IF M = 0 THEN 

GOTO 300 



130 

PRINT "El" 




140 

LET M = M — 1 




150 

IF INKEY$=" 

1" AND X>0 


THEN 

LET 

X =X - 1 




160 

IF INKEY $ = " 

0" RND X <30 

THEN 

LET 

X =• X + 1 




170 

GOTO 100 




200 

FOR 1=1 TO 

10 



210 

PRINT RT M, 

X ; " * " 



2 15 

PRINT RT M, 

X; "H" 



220 

PRINT RT M, 

X; " 



230 

NEXT I 




240 

C L S 




245 

LET 5=5-300 




2 50 

PRINT RT 10 

, O ; •'PANZER 


EXPL.O 

DIERT - PUNKTE:" 

5 RT 15,3 


"NOCH 

E IN 

SPIEL?" 
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Panzerangriff 



560 

G OT O 8 4- 0 




300 

FÜR 1 = 1 

T O 2 3 



310 

SCROLL 




320 

NEXT I 




330 

PRINT PT 

10.0 

; "GUT GEMACHT 

- 

SIE 

HABEN " 

; S ; AT 

11,0; ■' PUNKTE 

ERZIELT . " Hl 

13,0 .; 

"NOCH EIN SPI 

L 

”• 1 1 





34-0 

IF INKEY 


THEN GOTO 34-0 


3 5 0 

IF INKEY 

$ < > ' 1 N 

" THEN RUN 


36>0 

STOP 




3 70 

SAUE "TANH" 



380 

RUN 
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20.000 Meilen 
unter dem Meer 


Alle ZX81-Freunde kennen das Problem, daß bei den 
in BASIC geschriebenen Programmen die graphischen 
Elemente einen ziemlich geruhsamen Bewegungs- 
Rhythmus haben; das hat zur Folge, daß Graphics-Spiele 
schwer zu programmieren sind. “Space Invaders” zum 
Beispiel verliert viel von seinem Reiz, wenn sich die 
Raumschiffe nur alle 10 Sekunden bewegen. 

Wollen Sie nun trotzdem bei BASIC bleiben und nicht 
auf den Maschinen-Code ausweichen, so ist der einzige 
Weg, die graphischen Elemente zu einem realistischen 
Bewegungs-Rhythmus zu bringen, die Programme so 
kurz wie möglich zu halten und so wenig Elemente wie 
möglich auf dem Schirm zu bewegen. Genau das hat 
Neil Streeter mit diesem Programm geschafft. Die einzi¬ 
gen Dinge, die sich hier bewegen, sind die Taucher¬ 
glocke und der Octopus, und das eine wie der andere 
wird von j e einem einzigen Element verkörpert. Dadurch 
wird der ganze Ablauf enorm beschleunigt. 

Der Bewegungsablauf liegt zwischen den Zeilen 170 und 
290 und ist in seinen Elementen auf das Notwendigste 
reduziert: Kontrolle der gedrückten Taste, Kontrolle der 
Schatzkiste, Kontrolle des Octopus. Nicht nur das Ergeb¬ 
nis, sondern auch alle anderen Mitteilungen werden aus¬ 
gespart und an das Spielende versetzt. Wenn Sie nun 
versuchen, alle Bewegungsabläufe so kurz wie möglich 
und so nahe wie möglich an der Ausgangsposition zu 
halten, werden Sie auf ein sehr befriedigendes Spiel- 
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Tempo kommen. Die Elemente in Zeile 80 sind Graphics 
8, Graphics 3, drei inverse Graphics 4, elf-, Graphics 2, 
Inverse Space, zwei inverse A, drei Inverse und 13 
- bis Schluß. 



£ 0 PRINT " s* 8 ***«^^ 

M £ N f ,j £ (.,j 5 J £ J N IHRE FR 


T R U C HER- GL QC KE DIE 3 SCHhTZT 
R U H E N B E R G E N O H N E U O f-1 R IE 3 IG E N K R 
HKEN GEFRN- GEN ZU HERDEN?" 

3 0 PRINT S C H U X E R IG K E IT S G R R D 

t 1 — 4. ) : " , " 1 =5CHUER 2+3=MITTEL 4 = 
L.E ICHT " 

32 INPUT LEOD 


33 IF INT LE OD < > LEOD OR LEOD :> 4 
THEN GOTO 32 
35 LET LEOD = (LEOD + 1) £ 


4-0 

PRINT ,, 

" H IT 

DEN TRSTEN 

er _ 

STEUERN SIE 

D IE 

TRUCHERGLOC 

KE" 

i . , , 

, "MIT T'RS 

T E 6 

BEGINNT DRS 

SP 

IEL , 

' ’ 




50 

PRINT 'V 

.... rf . r .. r .-.. rrr .. 

.. 


............y.yy....... 





& 0 

IF INKEY 

$ = " " 

THEN GOTO 60 

70 

C L S 




74. 

LET COUNT=0 



75 

LET TEST 

= 0 



80 

PRINT TRB 15; 

■' B" : TRB 13 ; 

jjjU 

offfn • > 

IiMMim 


_B 

wrirerr- 

F; FI 

LET D $ = •' 

R " 



90 

LET X=15 




100 

LET Y=2 




1 10 

PRINT RT 

£1,0 

.; '' 1IIJUBm 


120 

PRINT.RT 

20, 3 

.; ,: H".;trb 7; 


. TRB 

£5,; "B" 



130 

L ET O X = INT (RND * 3£) 



15 









Spiele für Ihren ZX 81 


14.0 

LET 

O Y = INT ( R N 0*10+85 

150 

PRINT RT OY,O 

X " O " 


160 

LET 

TS=0 



165 

LET 

SC=0 



170 

LET 

X 1 =X 



180 

LET 

Y 1 = Y 



190 

LET 

X = X + ( INKE' 

Y $ = “ 8 ‘ 

• AND 

1) - ( INK Ei 

,"$ = •■ 5" AND 

X >05 


200 

LET 

Y=Y+ f INKE' 

Y $ = " 6 ' 

' AND 

0 5 - « INKE'i 

,$="7" AND 

Y > 2 5 


205 

LET 

COUNT =COUNT + 1 


210 

PRINT RT Y1,X 

1 

RT Y 


212 X F Y< >2 THE N L ET T E ST = 1 
2 15 IF X = 15 HN D Y=2 R N D TEST< >0 
THEN GOSUB 150© 

22© LET CH--PEEK (PEEK 16398+256 
* PE EK 16 39 95 


225 

IF 

CH THEN 

GOSUB 1000 

S 2 6 

PRINT D $ 


230 

LET 

O X 1 = O X 


24© 

LET 

OY 1 = OY 


250 

LET 

O X = O X + C 

X > O X 5 / L E O D - 

5/LEOD 



2 t* 0 

LET 

OY = OY + < 

Y > OY 5 / L E O D - 

5/LEOD 



262 

IF 

INT OX=X 

AND INT OY 

EN G 

OT O 

3000 



265 IF OY>20 THEN LET OY=20 
2 66 IF OY < 3 THE N LET OY = 3 
270 PRINT RT OY 1 , OX 1" ";RT OY , 
o x" o " 

290 GOTO 178 

1000 IF CH<>157 AND CH< >158 flN D 

CH < >159 THE N GOT O 3000 

1005 IF D $ •? > " R" THEN GOTO 310© 

1010 LET D$=CHR$ CH 

1020 LET TS= CODE D 4 -156 

103© RETURN 

1500 LET SC=50+T3* 10+20 
1510 LET D $ = "fl" 

1515 LET TEST =0 

1520 IF SC=12© THEN GOTO 3000 
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1530 PRINT RT QY.OXj" " ; AT 2,15.; 
1540 LET 0X = INT «RN D * 32j 
1550 LET OY=INT (RND*10+5) 

1560 RETURN 
3000 CLS 

3 005 IF C H >12 8 THE N PRINT "SIE H 
AB EN MIT DER TRUGHERGLOCKE DAS S 
CHIFF GERRMMT." RND CH ■; > 999 ; '' NOC 
H EINE TRUHE." AND CH=999 
3010 IF SC=120 T HEN PRINT "ERFOL 

g ... EiasHisaHMi ■ ■ 

3015 IF INT OX=X FIND INT OY =Y TH 
E N P RINT "GEER NG E N. . 

3020 IF CH--CODE THEN PRINT " 

SIE SIND RUFGETAUCHT - UARTEN 
SIE , B IS S IE G E RETT ET U ER D E N . '' 

3 O 30 PRINT "SIE HABEN " ; S CiLEO D + 
( 100-CO UNTi ; " P U NKTE. " 

3040 PRINT , ."UND " ; COUNT I " EINH 
REITE N S RUER-" ;T AB 0; "ST O F F U E RB 
RAUCHT...." 


3050 

P R I NT 

, ,"NOCH EIN SPIEL 

/N) ‘ 

' 


306© 

L ET K 

$ ss INKEY $ 

3070 

IF K $ 

= "" THE N G OT O 3 0 6 0 

3 0 S 0 

IF K $ 

= ".J" THEN CLS 

30 90 

IF K$ 

= ".J" THEN RUN 

3095 

STOF' 


3100 

LET C 

H = 99 9 

3110 

G OT O 

3000 

99 9 0 

STOP 


9 9 9 s 

SAUE 

' ' K R H K[=J'' 

99 9 9 

G OT O 

1 
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Sternenhändler 


Sie sind ein Händler der Stemenwelt und rasen auf 
Hyperwegen durch die Galaxis, um auf den galaktischen 
Märkten Umatz zu machen. Beim Aufbruch zur Reise sind 
Sie mit einem Sortiment von Waren und einer Summe 
intergalaktischen Geldes ausgestattet. Sie werden ver¬ 
suchen, mit einer größeren Warenmenge zu Ihrem Hei- 
matstem zurückzukehren. Bei Ihrer Rückkehr wird es 
Ihnen gelingen, diese Waren zum doppelten Handels¬ 
wert abzusetzen, und als Lohn der Mühe winkt Ihnen 
dann 10 Prozent vom Reingewinn. Draußen im Weltraum 
werden Sie andere Händler treffen, die Ihnen An- und 
Verkaufsgeschäfte zu günstigen Preisen anbieten. Wenn 
Sie mit bestimmten Partnern keine An- und Verkaufs¬ 
geschäfte machen wollen, brauchen Sie nur ENTER zu 
drücken. 

Das Ziel des Spiels ist es, eine möglichst große Menge 
hochwertiger Waren einzukaufen... Ihr galaktischer 
Überkaufmann ist Tim Rogers. 


10 L ET fl $ = " E X - D IKTflT O R E N , GIJ MM I 
STIEFEL ,PRPIERTUETEN . BflUKLOETZE . 
5flMENKOERNER .RHKETEN .FUSSERLLST I 
EFEL,BONBONS.SCHMIERSEIFENEIMER, 
ORRNGENSCHRLEN , KILO EIS , URESÜHEK 
L R M ME R N .REIFE N . ZIN K-RR DK R P P E N . LI 
TE R SYNT H ET ISCHE TINT E , S fl E C K E K O 
HLE N ST fl U B . M E T RLLBRRRE N , R E R G E N Z G L. 
RESER ,TUERKNREUFE , FISCHE .FERNSEH 
E R , fl B Z E IC H E N , C - 6 0 K R S 5 ET T E N , P fl NT 
OFFEL ,BLECHNREGEL .ZIEGELSTEINE , G 
üMMIBREUME , GLUEHLRMPEN . HRNDSCHUH 
E , KUGELSCHREIBER" 
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15 

EPS 

T 

20 

DIM 

B$ (30,2 5 i 

pr 

LET 

F = 100 

30 

D 11-1 

L ( 30 :> 

40 

LET 

H = 1 

45 

G O S 

UB 125 

50 

EOR 

B = 1 TO LEN R$ 

70 

IE 

ft$ (B) =" , '■ THEN 

80 

LET 

C $ = C $ + R $ ( B ) 

90 

NEX 

T B 

95 

G OT O E 

100 

LET 

B $ ( fi i = C $ 

1 10 

LET 

L (Ri = L E N C $ 

115 

LET 

fl = fl + 1 

120 

LET 

B = B + 1 

125 

LET 

C $ = " " 


130 IE R < = 30 THEN RET'URN 

135 IE E = 180 THEN GOTO 230 

14-0 LET h$ = "20.20 . . 1 . . 5.50,1000 
,20 , .2 , .5.1,1,5.10,45,4.5,600,2 , 
5,5,6,100,1,4,9,3.70,5,6,15 , .4" 
150 DIM B(30! 

160 LET E = 180 

170 GOTO 40 

160 LET Bifl)=UflL C$ 

190 GOTO 115 

200 POEE 16389,76 

202 IF M $ ■: > ST R $ P P T H E N L E T M $ = 
ST R $ M 

2 05 IF LEN M $ •; 2 THEN GOTO 220 
210 IE M $ (LE N M$-l)="." THEN LE 
T M $ = M $ + " O " 


220 

RETURN 




230 

DIM fl(3 

0) 



24© 

LET IR = 

I NT 

(RND*10000i 

+ 1 

250 

LET M-IR 



260 

FOR B = 1 

TO 

30 


270 

IF RND > 

w p; 

THEN LET R (EU =IN 

T (RND*10000 

:» +1 



2 S 0 
B) *2 

IE fl (Bi 

>0 

THEN LET IR= 

IR+B ( 

2 90 

NEXT B 
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300 LET V =2100 + 1NT (RMD*3000) 
305 LET PP=0 
31© 5LOI-.I 

315 LET M$=5TR$ H 

3 20 G O S U B £ 0 0 
330 FÜR V=Y TO V+£0 
34-0 CLS 

350 PRINT TRB 12; "ÜRHR ".LY 
355 LET P =3 

3 6 0 PRI NT -i'S''*-*-* 

370 PRINT "HNI-MP" 

330 FÜR B=1 TO LEN M$ 

3 90 P R I NT C H R $ ( C O D E M $ ( B 3 + 1 £ 3 3 

4-00 NEXT B 

405 PRINT 

4 10 FÜR B = 1 TO 30 

4£0 IF R(B)=0 TUEN GOTO 44© 

4£5 PR INT R ( B 3 ; ThB 6 B $ ( B 3 

430 LET P=F' + 1 
435 IF P>=18 THEN SCROLL 
440 NEXT B 

450 LET 5$="UERKhUFEN" 

460 GOSUB 1000 

4 70 FOR F'-l TO NT 

4 75 IF R N D •; .47 THE N G O T O 9 © © 

430 PRINT HT (F'-l) *5., O; "HRENDLE 
R" ; P ; 

4 90 PRINT " HOECHTE " ; S $ 

491 IF S $ ="KRUFE" THEN PRINT "N 

500 LET IT = INT ( RN O *30 3 +1 
510 LET PP=INT <RND*100)+1 
5£0 LET NR=INT (RND*10©03+1 
530 LET X R = INT (RND + 10000 3 +NR 
54 0 LET PP = PP 100*B ( IT 3 
550 LET pp = I NT (PF'*100 3 / 100 
560 LET T$=M$ 

570 LET f-1 $ = STR $ F'P 

5 30 G O 3 U B £ © 0 
59© LET P$=Mt 
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Sternenhändler 


P00 

LET Mt 

=Tt 


S 7 0 
10 

IF 5t = 

"KAUFE" THEN 

GGSUB 11 

6 8 0 

P R I NT 

Xfl;" ";B$(IT■ 

TO L ( IT 

;i J ; " 

ZU JE 

" , "4" Pt 


6 9 0 

PRINT 

AT 19.0;"UIE 

UIELE 

B $ ( IT 

, T O L 

(IT) ) ; " " ; 


6y5 

IF L ( IT :i > 14 THE N P R I NT 

700 

IF 8 $ = 

"KAUFE" THEN 

GOSUB 11 

30 




7 10 

PRINT 

"KAUFEN? (SIE 

HABEN " 

m 4" 

$:> " 



7 20 

INPUT 

Z$ 


"7 pr t 

IF Z $ = 

"" THEN GOTO 

8 3 0 

73© 

IF COD 

E Z 4 < 2 8 OR CO DE Z$>37 

T HEM 

G OT ü 

7 2 © 


7 4-0 

LET Z = 

UAL Z 4 


7 4- 5 

LET Z = 

I NT ( Z + . 5 ) 


7 50 

IF Z<© 

OR Z >XA THEN 

G OT O 7 2 

0 




760 

LET CS 

~ Z # P P 


7 6 5 

IF S $ = 

"KAUFE" THEN 

R ET U RN 

7 70 

IF M - C 

S<0 THEN GOTO 

7 20 

780 

LET r-1 =: 

M - C S 


7 9 © 

G 0 S U B 

200 


800 

LET fl ( 

IT) =fl ( IT :i +Z 


810 

C L S 



820 

NEXT P 



8 2 5 

G OT O 8 

60 


830 

IF C $ = 

"VERKAUFEN" THEN GOTO 

810 




85© 

GOTO 1185 


860 

IF S$ = 

"KAUFE" THEN 

GOTO 120 

0 

865 

LET 8 4 

="KAUFE" 


870 

G O S U B 

1000 


8 8 0 

GOTO 4 

70 


900 

PR INT 

AT (P-l » *5,0 

"WAS UOL 

LEN S 

IE " ; 



9 10 

IF S $ = 

"KAUFE" THEN 

PRINT "U 


ERKAUFEN HM " 

920 IF 5$ = "UERKhUFEN" THE N PRIM 
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"K 

RUFEN 

VON " 


9 30 

PRINT 

"HAENDLER " : 

p. 

940 

INPUT 

Z$ 


94 5 

IF Z * 

T (-|E N GOTO 

8 3 0 

9 50 

LET L 

Z = L E N Z$ 


9 5 5 

IF LZ 

<2 THEN GOTO 

940 

960 

FOR L 

=1 TO 30 


970 

IF B$ 

(L . TO LZ) = Z $ 

THEN 


O 1500 

980 PRINT "MM. . " ; 

990 NEXT L 
9 9 5 G OTO 15 10 
1000 LET NT=INT (RND*5) 

1010 PRINT HT 19,0;NT;" HPENDLER 
WOLLEN " 


1020 PRINT S $ 

1030 IE S$="KHÜFE" THEN PRINT "N 
BEI IHNEN" 


1040 IE S$ ="WERKRUFEN" THEN PRIN 


T " RN SIE" 

1060 pR INT rt 21,0.;"[iEiSIiHlIMHill! 

03 = 


TR ST 


1070 PAUSE 4E4 
1080 P OKE 164 37,2 5 5 


1090 CLS 


1100 RETURN 

1110 PRINT NR.;" - " .; 

1120 RETURN 

1130 PRINT "VERKAUFEN? (SIE HABE 
N '' 

1131 PRINT fl (IT) ; " " ; B $ (IT, TO L 

(IT) ) ; " ) " 

1140 GOSUB 720 

1150 IF Z < N fl OR fl (IT) <Z THEN GOS 
UB 720 

1160 LET fl ( IT) =fl < IT) -Z 

1170 LET M=M+CS 

1180 GOSUB 200 

1185 CLS 

1190 NEXT P 

1200 NEXT Y 

1210 LET F fl = M 
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1220 FOR ß=l TO 30 

1230 PRINT hT 11,10;"SIE SIND ZU 

H fl USE" 

124.0 IF RiBi >0 THEN LET Ffl=Ffl+B ( 

B) * 2 _ _ 

HT 11 ' 10 '' yiü *^* eMBJIällfc5Ä81 

1260 NEXT B 

1270 CLS 

1280 PR INT "SIE BEGRNNEN H IT " I 

h " 

1290 PR INT '' flN GELD IJND LRDIJNG . " 

1300 PR INT , , 1 ' .JET ZT BES ITZEN S IE 

1 * j j~' pi • " j " 

13 10 P R IN T "GEL D IJ N D L R D IJ N G . " 

1320 LET P R = F fl-Ifl 

1330 IF SGN PR=—1 THEN LET P$="U 

ERLUST" 

1340 IF SGN PR >-1 THEN LET P$ = "G 

ELI INN" 

13 5 0 P R I NT , , "SIE f-1 fl G HT EN " ; fl B S 
PR; " $" P$ 

1360 IF P$="GEWINN" THEN PRINT , 
" IHR UERDIENST IST " ; INT (PR* 
10 ) / 100 ; " $" 

1370 IF P$ = "UERLIJST" THEN PRINT 

, , , , "SIE KOMM EN INS SCHIJLDGEFflEN 

GNIS UND WERDEN DAS TAGESLICHT N 

IE- M fl L. S LJ IE D E R S EHE N ; G E S C H LJ E IG 

E DENN DAS INNERE EINES RAUMS 

CHIF-FES." 

1372 PAUSE 200 

13 7 5 P O K E 164 3 7.2ff. 5 

1380 IF P $ = " UERL.UST " THEN NEU 

1390 PRINT IHR ARBEITGEBER 

BIETET IHNEN EI-N E N NEUEN WERTRfl 

G AN. NEHMEN SIE IHN fl 

N ? i J / N ) '' 

1400 IF INK EV $ ■; > " J " flND INKEY $ < > 

"N“ THEN GOTO 1400 
1410 IF INKEY$-"N” THEN STOP 

1420 FAST 
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14-30 GOTO 230 
1500 CL5 

1505 IF RND > ,4 THEN GOTO 150© 
1510 CLS 

1520 IP L <31 THEN LET Z$=B$(L, T 
O L ( L) :« 


15 30 

R " ; P 
1535 

P R X NT PT C P - 1:« * 5,0 

"HRENDLE 

LET R=RND 


1540 

IP 5 $ “ U E R K R U F E N '' 

RND R < .5 

THEN 

PRINT " HAT KEINE" 


1550 

IF 6 $ - " U E R K R U F E N '' 

RND R > = .5 

THEN 

PRINT " UERKRIJFT 

KEINE " 

1560 

IF S$="KRUFE" THEN 

PRINT " 

I.-.I IL L 

KEINE" 


1570 

PRINT Z$ 


1530 

PR INT RT 21,0; "!=H>.*«Ut^M=13mt3=] 

h «saHMs nff "TnijK ri "W »1 “SKJ sw ösfi JJ1 11 


1585 

PAUSE 4 E 4 


15 9 0 

P O K E 164 3 7 2 5 5 


15 Q 3 

G OT O 3 3; 0 


1600 

PRINT RT (P-IS*5,0 

"HRENDLE 

R " ; P 

; " MO ECHTE " 3 $ 


1602 

IF 6 $ = "KRUFE" THEN 

PRINT "N 

1604 

PRINT 


16 10 

L. ET IT=L 


16 20 

GOTO 510 


2010 

SAUE "SKLRUEN II" 


202O 

PAKE 163QQ , 12'8 


2030 

FAST 


2040 

G OT O 2 3 0 
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Schatzkisten 


Schatzkistenjagd 

Jahrelang haben Sie im Bermuda-Dreieck nach verschol¬ 
lenen Schatzkisten gesucht. Endlich stoßen Sie hinter 
einem gefährlichen Korallenriff auf die ersehnte Beute. 
Es sind gleich eine ganze Reihe von Schatzkisten, aber 
sie wissen, daß alle Kisten leer sind - bis auf die letzte, 
die mit so viel Juwelen und Gold gefüllt ist, daß Sie für 
immer ausgesorgt haben. Die leeren Kisten müssen Sie 
erst beiseite schaffen, um an die wahre Schatzkiste zu 
gelangen. Dummerweise war Ihr erbarmungsloser Kon¬ 
kurrent ZX81 Ihnen die ganze Zeit auf den Fersen und 
taucht nun auf, um die Beute an sich zu reißen. 
Abwechselnd nehmen Sie und der Computer 1, 2 oder 
3 Kisten weg. Sie bestimmen das mit den Tasten Tbis “3”. 
Der Stand des Spiels wird sowohl in Ziffern wie auch 
graphisch angezeigt. Gewonnen hat der Spieler, der im 
entscheidenden Augenblick, wenn alle anderen Kisten 
weg sind und nur noch die wahre Schatzkiste zu holen 
ist, zum Zug kommt. Machen Sie sich keine Illusionen! 
Meistens hat der ZX 81 die besseren Taucher und wird 
gewinnen. Nur bei äußerster Konzentration können Sie 
ihn überlisten. Ausgetüftelt wurde diese teuflische 
Schatzkistenjagd von Dilwyn Jones. 

10 RAND 

15 LET F' = INT ( RND *15) +10 

£0 PRINT AT 0,0: SHIIIIIIIIIII 

■ I I I I I I I I I I i TO p) ; RT 5,5; P; " K 
ISTEM" 

30 IF RNCX.5 THEN GOTO 1£© 

40 PRINT RT 3,0.; " 
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50 PRINT RT 12,0;"UIEUIELE KIS 
TEN WOLLEN SIE NEHMEN?" 

60 LET R = C O DE INKEY$-28 

70 IF R <1 OR R >3 THEN GOTO 60 


80 

l'A - * 

PR INT 

RT 12,0;" 

■ 

’ ; RT 

90 

LET P 

= P — R 



100 

PRINT 

RT 5.5 ; P ; 

' KISTE’ 

• ; "N" 

RND 

P < > 1 ; 

" BLEIBEN 

" .; RT 8 . 

, 0.; "S 


IE NAHMEN ";R; 

105 GOSUB 24.0 
110 IF P<1 THEN GOTO 220 
120 LET N = INT CP/4) *4 
130 IF P= N THEN LET R = INT (RND* 
3) +1 


140 

IF P < 

>N THEN 

LET R = P-N 

150 

160 

LET P 
PRINT 

= P—R 
RT 9 . 

. 0 .; 

"ICH NEHME " R 

165 

170 

G O S U B 
PRINT 

240 
RT 5 . 

CT • 

P.; " KISTE"; "N" 


RND P < > 1" BLEIBEN " 

180 IF P <1 THEN GOTO 200 
190 GOTO 40 


200 PRINT 
NE [ägaOT 

210 STOP 

RT 

0 . 

. 0.; 

"£¥¥§ ICH 

GEUIN 

220 PRINT 

RT 

0 

. 0.; 

'■£;£;£ SIE 

GE WIN 


NEN £££" 


230 

STOP 



240 

FOR R = 1 TO 

10 


250 

PRINT RT O ,i 

, P ; " 

III 

0 , 

p ; " 

( TO 

R) 

c! 

NEXT R 



270 

RETURN 




99 98 S R UE "SCHRTg" 
9999 GOTU 1 
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Bomben Nim 


Bomben Nim 


In dieser Nim-Variation, ebenfalls von Dilwyn Jones er¬ 
dacht, fliegen Sie in die Luft, wenn Sie sich in die Lage 
manövrieren lassen, das letzte Exemplar in einer ganzen 
Reihe von Objekten nehmen zu müssen. Bei diesen 
Objekten handelt es sich nämlich um Bomben, die ent¬ 
schärft werden müssen. Bei allen Bomben gelingt diese 
Operation, nur bei der letzten können Sie so sensibel 
Vorgehen, wie sie wollen: sie wird auf jeden Fall explo¬ 
dieren. Berufsrisiko! 


10 RAND 

15 LET P = IWT <RND *15) +10 
20 PRINT RT 0,0 "E3 H 1111 i H 11 H H R 

HHIIIIII1HI" ( TO P) RT 5,5 P " B 
OMBEN " 

30 IF RND< .5 THE N GOTO 120 
40 PRINT RT 8,0;" 


50 

PRINT 

RT 12 , 

0.; "LUEUIELE BOM 

BEN 

ENTSÜHAERFEN 

SIE 

' • 

60 

LET R 

=CODE INKE 

Y $ ~ c' ö 

70 

IF R < 

1 OR R > 

3 OR R >P THEN G 

OT O 

6 0 




80 

PRINT 

RT 12 , 

0 " 

" RT 9,0.; " 

90 

LET P 

= P -R 



100 

PR INT 

RT 5,5 

Pj 

" BOMBE";"N" 

AND 

P < > 1 ; 

" BLEIB 

" ; *' 

EN " AND P< 

> 1 ; 
HM EN 

T 

"r; 

AND F' = l 

RT 

8,O;"SIE NR 

105 

G O 8 U B 

2 4-0 



1 10 

IF P < 

1 THEN 

G OT 

O 2 00 

120 

LET N 

= IMT ( P 

4- ) 

+ 4 

130 

IF P = 

N + l THEN LET R = INT CRN 
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D ■& 3 } + 1 

140 I F P < > N + 1 THE N L ET R = P - ( INT 

i. ' F"' — 1 .t 4 \ 4 } 1 

145 IF R >P THEN LET R=P 

15© LET P=P-R 

160 PRINT RT 9.0;"ICH ENTSCHRER 


16 5 GO 31J B 240 

170 PRINT RT 5.5 ; P " BOMBE"; "N" 
AND P < > 1 ; •' BLEIB" ; "EN" RND P < > 1 
"T " RND P = 1 

1S0 IF P<1 THE N GOTO £ £ 0 
19 0 G OT O 4 0 

£00 PRINT RT 0,0.: "■SSSJai ICH GE 


winne 

£ 0 5 PRINT RT 1£,0 
EU IN NE ■ES2I3B" ; 

£10 STOP 

£ £ 0 PRINT RT 0,0.;' 
UINNEN- PENG" 

£ £ 5 PRINT RT 1£,0 
EUINNEN- PENG" 

£30 STOP 

£4 0 FÜR fl = 1 TO 10 
£50 PRINT AT 0,R;' 
T 0 i P ; " ( TO R ) 

£60 NEXT fl 
£70 RETURN 
9 9 9S S fl U E " B O M Bll" 

9 9 9 9 G O T O 1 


Hälflrsg ich ge 
"M ängel» ich G 


PENG 


PENG 


-SIE GE 


-SIE G 


Cll ( TO R) .; fl 


E3 I N I I II 1 I R 


10 B O r-1 B E N BLEIBE N 


SIE NAHMEN 3 
ICH ENT SCHflERFE 1 
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Poker 


Poker 

Dieses Programm spielt nicht nur Poker, sondern druckt 
auch die Karten aus. Das verlängert das Spiel zwar er¬ 
heblich, macht es aber auch sehr viel vergnüglicher. 
Das Display zeigt Ihre Poker-Hand und die des Com¬ 
puters, als zwei Sets von je fünf Karten. Die Karten des 
Computers sehen Sie natürlich nur von hinten! 

Zunächst werden Sie gefragt, wieviel Sie setzen wollen. 

Die Wertigkeit der Karten von der niedrigsten zur höch¬ 
sten Hand: 

Nichts - verliert gegen alles folgende 

1 Paar - Chancen 1:2 

2 Paare - Chancen 1:21 

3 Gleiche - Chancen 1:47 

Straight - Chancen 1:255 

Flush - Chancen 1:509 

Full House - Chancen 1:694 

4 Gleiche - Chancen 1:4.165 
Straight Flush - Chancen 1:72.193 
Royal Flush - Chancen 1:169.740 

Nach Ihrem ersten Einsatz können Sie bis zu drei neue 
Karten nehmen. Dasselbe darf der Computer. Der Com¬ 
puter deckt nun seine Karten auf und vergleicht die bei¬ 
den Hände. Wenn Sie Ihr ganzes Geld verlieren, können 
Sie sich etwas vom Computer leihen und bei einer 
neuen Runde versuchen, es zurückzugewinnen, Sie kön¬ 
nen das Programm speichern, indem Sie den Recorder 
starten und einfach auf RUN und ENTER drücken; das 
Programm wird dann automatisch beim Loading gestar- 
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tet. Löschen Sie Zeile 1, wenn Sie von dieser Möglichkeit 
keinen Gebrauch machen wollen. 

Die Zeilen 1 bis 105 stellen die Variablen auf. Die Zeilen 
110 bis 138 stellen das Spiel vor. Die Zeilen 140 bis 592 
erklären die Spielregeln. 


1 

SRUE 

"F-OKEH" 

£ 

LET 

S$ = " 

er, 

LET 

BORRÜU.I =0 

10 

RAND 

IS 

DIt-1 

R $ (y , 5 :i 

14- 

DIM 

Tt (11.5) 

16 

LET 

R $ ( 1) = " |»» , »«"| '' 

1S 

LET 

R$ (2:i -' ’ B—J " 

20 

LET 

R$ (3) ="l " » " 1 " 

2 2 

LET 

R$ (4) = "1 ■ " 1 " 

24 

LET 

R$ (5) ="| ■ » B " 

26 

LET 

R $ (6) ="« p R " 

2 6 

LET 

R$ (7) =”| " H " 

30 

LET 

R $ ( 8 ) = " i 1" 

3 2 

LET 

r-$ < 9 ) = "i img 1 " 

34 

LET 

T $ ( 1) =”99992" 

36 

LET 

T $ ( 2 ) = '' 6 86 8 2 '' 

3 8 

LET 

T $ ( 3) ="76872 ” 

40 

LET 

T $ ( 4 ) =” 48842" 

4.2 

LET 

T $ (5) ="46842" 

44 

LET 

T$ (6) ="45842" 

46 

LET 

T $ ( 7 ) ="35842" 

48 

LET 

T $ (8) ="44442" 

50 

LET 

T$ (9) ="43442" 

cr t 

LET 

T $ ( 10) ="34342 

54 

LET 

TJ(11! =" 86882 

100 

DIM 

T ( 13) 

101 

D IM 

K ( 4 ) 

1 Os¬ 

DIM 

m ( 5 ) 

los 

DIM 

N ( 5 ) 

104 

D IM 

C ( 5 ) 

105 

D IM 

D ( 5 ) 


110 PRi nt tob s 


30 







Poker 


!H9I!" 

111 LET P9=100 

112 PRINT 

114- PRINT "SIE SPIELEN EINE PRR 
TIE P0K E R GE GE N MICH," 

116 PRINT "DER MINDESTEINSATZ I 
N -JEDER RUNDE BET RR EGT $5.00 

U N D SIE B E GIN N E N MIT $100. I 

N .JEDER RUNDE K OE NN EN SIE: - 


118 PRINT , , "gRHOEHEN - UM IHRE 

N EINSATZ ZU ERHOEHE 

N , U E D U C H N IC H U M 

MEHR RLS D E N R N F R N GS 

pr *r Kl •=. CJ'T' "7 '' 

122 PRINT ,,"SEHEN - UM DIE 

KARTEN DES COMPUTE 

RS ZU SEHEN." 


128 

PRINT 

,,"HUFLEGEN 

- UM IHRE 

KARTEN 


AUFZUDE 

CK EN . 

‘ ' 



129 

F'OKE 

16418.0 


130 

PR INT 

,,"SPIELBEG 

INN: BITTE 

EINE 


BEL IE 

BI GE 
KEN . " 

TASTE 


DRIJEC 

1 3 9 

P Fl U S E 

4E4 


13 3 

CLS 



134 

PRINT 

RT 10 ,s; 

135 

PAUSE 

100 


13 8 

CLS 



139 

F'OKE 

164 18,2 


14.0 

DIM S 

< 4,13 i 


151 

PRINT 

RT 9,0;"DIE 

KARTEN SI 


ND GEMISCHT." 

160 LET A9=5 

163 PRINT RT 11,9;"EINSATZ $5.0 
0 " 

16 5 P RI NT RT 13,9; "SIE H R B E N $ '' 
.« F' y 

166 IF P9<=0 THE N GOTO 7000 
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170 

FÜR X 

= 1 TO 5 




171 

G O S U B 

920 




172 

LET M 

(X) =C 




173 

LET N 

( x ) =s 




174 

NEXT 

X 




175 

GOSUB 

104-0 




181 

PR INT 

,, " ICH 

NEHME 

MEINE 

KR 

RTEN 

■ B » ' ' 





185 

FOR X 

= 1 TO 5 




190 

PRINT 


ESBSS3 


E$3 

Eia 

jüssEiüa * 





191 

GOSUB 

9£0 




192 

LET C 

< X 3 = C 




193 

LET D 

( x :» = s 




ly4* 

NEXT 

x 




195 

PR INT 

ÜHlXXXX 1 

■KKXX,| 


ES3 

sasa 

XXXX ■ 

■xxxxl 

Bxxxxl 

Ixxxx 1 


Eaa 

SiSiBKa " 





19 6 

PRINT 

HT 19 , 

0 .; "SIE 

HOBEN 

•' 

; P 9 — 

5; " 13" 





200 

GOSUB 

1080 




201 

LET C1=T 




202 

LET C 

2 = H 9 




203 

LET P1 =- 5 




211 

PRINT 

RT 21 , 

0; "EROEFFNEN 

51 

E M IT E3 0 . 

00 -" ; P9 




212 

INPUT 

BET 





213 IF BET <0 üR BET > P9-5 THEN G 
OT O 2 11 
214- LET B =BET 

216 IF RND< .8 THEN GOTO 230 
220 IF INT « ( (T*RND) +1) + i (H9*RN 
Di +1) + (T *10) :i < BET - (BET/10) THEN 


OT O 

440 


230 

LET 09 

-09 + Ei 

231 

G O S U B 

5025 

2 3 2 

PR INT 

"ICH NEHME HM." 

233 

PR INT 

OT 19.10 ; P9-5-BET.I " 

234- 

LET ST RKE = BET 

240 

GOSUB 

5000 

241 

PRINT 

' 1 U IE U IE L. E N E U E K O RT E N 


32 











Poker 


2 4 2 

IF INKE Y " THEN 

GOT U 24 2 

c! 4 

IF IN K E V $ = "■■ THEN 

3 OT O 2 4 3 

CZ. '•i 4* 

LET E $-INKEY$ 


245 

IF E$i"0" OR E $ >"3 

" THEN GO 

ü 2 

42 


24 6 

LET K. 9 = U fl L Ej 


250 

F OR X = 1 T O K 9 


260 

G 0 5U B 5025 


261 

P RINT 1 ' K R RT E N ZAHL. 

?" RND (X 


/2 = x nt (X/2) [5GI=W=RM=IIQB RND 
( X /£ ■; > INT (X/2) d ; " " ; 

262 IF INKEY*<>.THEN GOTO 262 

2 6 3 IF IN K E Y * = " " THEN G OT O 2 6 3 
2 64- L ET E $ = IN K E Y $ 

265 IF E $ ■; " O " OR E * > " 9 " THEN GO 


T O 2 6 2 

266 LET T9=UAL E$ 

267 PRINT T9 
2 6 8 G O S U E« 920 

270 IF T9<6 THEN GOTO 280 

271 G O 8 UB 500 0 

272 PR INT 11 KRRTE NR . < N1JR 1-5) . 

2 7 3 G O TO 260 

280 LET M(T9)=C 

281 LET N (T9) =6 

282 NEXT X 

2 83 GOSUB 104 4. 

2 90 G O SÜB 107 0 

291 FOR X = 1 TO 5 

2 92 LET T (M (X) > =T (H (X) ) +1 

2 93 LET K CN (X) ) =K ( N (X) 1 +1 

294 NEXT X 

2 9 5 G O 5 UB 5 02 5 


:96 PRINT 


301 GOSUB 640 

302 LET P1=T 
3 03 G O 6 U B 8 0 0 
304 LET P 2 = H 9 

311 GOSUB 1080 

312 LET H9=0 
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13 

IF T >3 


TH 

E 

20 

FOR Z = 

1 

T 

ij 

21 

IF H 9 = 

3 

T 

H 

Irr! 2 

IF T (C 

( 

Z ) 

) 

2 3 

LET H9 

= 

H9 

+ 

30 

GOSUB 

Q 

20 


31 

L ET C ( 

z 

j - 

C 

■_I* c 1 

LET D < 

z 

) = 


40 

NEXT Z 




50 

GOSUB 

CT 

02 

er 

51 

PR INT 

' ' 

IC 

H 

' ' I ' 

' N '' AND 


H9 


eri 

LET HS 

= 

H9 


60 

GOSUB 

1 

08 

0 

61 

LET CI 

SS 

T 


Pi 2 

GOSUB 

8 

00 


63 

LET C2 

= 

H9 


70 

LET B9 

= 

INT 


I G OT O 3 4 0 
1 THEN GOTO 


(40 


" ; H9 ; 


K fl R 


D)+(C1*10))+INT 
2)i +7 


< (Cl+RND! + (C2*RN 
( H 9 / 3 > + i) ( K 9 - H 8 ) ■* 


)0 


3 

80 

LET 

B 1 

= 0 





8 2 

IF 

RND 

•i CI*. 

5 

THE N 

G OT O 

3 

ö •_!* 

LET 

B9 

= '=»'=• . 9 

y 




90 

G Ü S 

IJB 

5000 





91 

GOS 

UP 

6 000 




4 

01 

IF 

B <0 

THEN 

c 

50 TO 5 

70 

4 

02 

LET 

fl 9 

= H 9 + B 

i 



4 

10 

IF 

B < > 

0 THE 

N 

GOT O 

420 

4 

11 

G O S 

UB 

4 30 





4-12 

420 

421 
4 50 


GOTO 540 

IF H 9+ B< B 9 T H E N G OT O 4 6 0 

IF R9+B < B9 + ( B9 2 ') T hlE N GOTÜ 


4 30 
440 

IF B9 = 
G O S U B 

99.99 THEN GOTO 450 
5000 

IUSSEN 


» |H 

442 

GOSUB 

480 

4 43 

G OT O 5 

80 

450 

GOSUB 

5000 

451 

PRINT 

"IHRE KARTEN." 

4 52 

LET R9 

= H 9 + B 
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453 GOSUB 480 
4 5 4 G OTO 54 0 

460 LET 61 = INT ( i (B9-R9) 3 j iRND 

i + 2 


4 6 1 

LET fia 

= A9 +6 


470 

G G S U 6 

5000 


471 

PR INT 

"ICH SETZE $ ' 

1 Bl 

4 72 

G OT O 3 

90 


480 

G O 8 U B 

4000 


431 

G O S U B 

1044 


482 

G O SIJ B 

5 000 


483 

P R I NT 

"ICH HATTE " 


484 

LET T = 

C 1 


485 

G O S U B 

8 20 



4 90 

G O 6 U B 


5000 

491 

PR INT 


"MIT EINER HOHEN 

UON 
4- '=? i=! 

LET C 


C2 

4- 3 

G O S IJ B 


9 4 0 

4- 9 4- 

PR INT' 



5 00 

IF PI 

“ 

-5 T'HEN GOTO 530 

5 10 

G O S U B 


5000 

5 11. 

PR INT 


"SIE HATTEN 

5 12 

LET T 

= 

PI 

5 13 

G O S U B 


8 2 0 

5 20 

G O 6 U B 


5000 

52 1 

PRINT 


"MIT EINER HOHEN 

UON 

* ' ; 



3 2 

L ET C 

= 

P2 

5 2 3 

G O 8 U B 


y 4 0 

5 24 

PR INT 


" . '' 

531 

RETURN 


5 4© 

IF CI 


PI THEN GOTO 550 

541 

IF CI 


PI THEN GOTO 580 

542 

G OT O 

CT 

7 0 

5 5 0 

IF C 2 

= 

P 2 THEN GOTO 560 

er er 

IF CS 


P 2 THEN GOTO 5,80 

er er £> 

GOT O 

er 

7 0 

5 6 0 

G O S U B 


5000 

56 1 

PR INT 


. . |j NENT scHIEDEN . 

3 & 2 

G OT O 

er 

90 

3 0 

G O 8 U B 


5000 


HAND 


HAND 
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p R i nt • ■ 

L E T P 9 -- P 9 - H 9 
G OT O 5 9 0 
G O S U B 5000 


LET P9-P9+R9 
GOSUB 5000 
PRINT "NOCH 
IF INKEY$<>" 
IF INKEY $-"" 
IF INKEY $ = ".J 
CLS 

LET P9=P9 — (B 
SCROLL 


i EINMRL CJ/N) 
>"" THEN GOTO 
THEN GOTO 5 
LJ" THEN GOTO 

(BORROU*100) 


PRINT 




IF P9 <0 THEN GOTO 630 
IF P9>=100 THEN GOTO 620 
SCROLL 

PRINT "SIE UERLIESSEN DEN 
MIT $ " 

SCROLL 

PRINT " 100-F 

SCROLL 

SCROLL 

F' R I NT '' 

GOTO 635 
SCROLL 

PRINT "SIE HHBEN DEN TISCI 
EINEM GEWINN 'JON $ " .1 P9 j ' 

ASSEN" 

SCROLL 

SCROLL 


GOTO t> 3 5 
SCROLL 

PRINT "SIE SCHULDEN MIR $ 


36 
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632 SCROLL 
6 3 3 S C R O L L 
fc 1 4 F’ R X NT " 


635 5CRÖLL. 

6 3 6 S CROLL 
637 SCROLL 

6 3 6 S 7 Ci R 
64.0 LET T =0 

641 FOR 1=1 TO 4 

642 IF K(I) •; > 5 THEN GOTO 650 

643 LET T =5 

650 NEXT I 

651 LET 1=2 

652 LET H9=0 

660 LET 1=1-1 

661 IF I<>© THEN GOTO 67© 

662 LET 1=13 

67© XF Td) <1 THEN GOTO 660 

671 LET H9=I 

672 IF I<>1 THEN GOTO 680 

673 LET 1=14 
680 LET Z = I-4 

690 LET 1=1-1 

691 IF T d) < >1 THEN GOTO 720 
700 IF Zi>1 THEN GOTO 690 

7 1© LET T =T + 4 

711 IF Z< >10 THEN GOTO 72© 

712 IF T = 4 THEN GOTO 17© 

713 LET T =T + 1 

720 IF 1=13 THEN GOTO 660 

721 IF To5 THEN GOTO 730 


7 2 c! 

IF T d) < > 1 

THEN 

G OT O 

73 0 

7 2 3 

LET H9 = 1 




73© 

IF T =0 THEN 

GOTO 

74© 


7 3 1 

RETURN 




740 

FOR 1=1 TO 

13 



741 

IF T d ) < > 4 

THEN 

G OT O 

750 

742 

LET T =7 




75© 

IF T ( I) < :> 3 

THEN 

GOTO 

7 60 

751 

LET T =T + 5 




752 

LET H9 = I 
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7 6 C5 

IF T ( I j < > 2 THEN GOTO 790 

761 

IF T =5 TUEN G 

OT 0 7 8 0 

762 

IF T < >0 THEN 

GOTO 770 

7 & 3 

LET H9=0 


77© 

IF H9 = 1 THEN 

GOTO 780 

771 

IF H9 >I THEN 

G OTO 780 

7 7 i=I 

LET H 9 = I 


7 60 

LET T--T + 1 


790 

NEXT I 


7 y 1 

IF T < >5 THEN 

G OT O 8 10 

7 92 

LET T =3 


793 

RETURN 


600 

IF H9< >1 THEN 

GOTO 810 

801 

L ET H 9 = 14 


8 10 

RETURN 


820 

IF T<>0 THEN 

G OT O 8 3 0 

3 £ 1 

PRINT "NICHTS 

' ' 

S £ £ 

RETURN 


8 30 

IF T •; > 1 THEN 

G OT O 84 0 

3 3 1 

PRINT "EIN PfiflR" 

S 3 £ 

RETURN 


84-0 

IF T < >2 THEN 

GOTO 8 5 0 

841 

PRINT "ZUEI PflflRE" 

8 4 2 

RETURN 


850 

IF T<>3 THEN 

GOTO 860 

851 

PRINT "DREI G 

LEICHE" 

3 3 £ 

R ETU R N 


860 

IF T < >4 THEN 

G OT O 8 7 0 

861 

PRINT "EINEN 

STRRIGHT " 

3 3 i=! 

RETURN 


870 

IF TOS THEN 

GOTO 880 

871 

PRINT "EINEN 

FLUSH“ 

3 7 £ 

RETURN 


3 3 0 

IF T < >6 THEN 

GOTO 890 

881 

PRINT "EIN FULL HÜUSE" 

02 

RETURN 


890 

IF T < >7 THEN 

G OT O y 0 0 

891 

PRINT '' UIE R GLEICHE" 

3 0 £ 

RETURN 


900 

IF T < >9 THEN 

G UTO 910 

901 

PRINT "EINEN 

8 T R H IG H T F L U 8 H 
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902 RETURN 

910 P RINT "EINE N R OYHL FLUSH... 

911 RETURN 

920 LET 5 = INT (RND*4- + 1) 

921 LET C=INT (RND*13+1) 

930 IF S(S.C)=1 THEN GOTO 920 

931 LET S(S,C)=1 

932 RETURN 

94-0 PRINT "R" AND (0 = 1 OR 0 = 14.) 

; "T" RND C = 10; " .J" AND 0 = 11; "G" R 
ND 0 = 12; "K ‘' fl N D C = 13; 

941 IF Ol RND C<10 THEN PRINT 

C ; 

942 IF 0=1 THEN LET 0=14 

94 3 IF C>10 R ND C <14 THE N LET C 

= 1 


944 IF 0=14 THEN LET 0=11 
952 RETURN 

1000 PRINT "H" RND S=1;"S" 

= 2; "D" RND S =3; "C" RND S=4; 


RND 


1001 

PR INT 

" 1 " 

1002 

RETURN 

1040 

CLS 


1041 LET LIN E = 0 

1042 PRINT TRB 4 ; "CTiäläl 

asasESMas" 

1043 

PRINT 

1 2 

4 

CT « < 


1044 

F O R! X 

= 1 TO 5 

1045 

PRINT 

RT 2+LINE..0 

1046 

PR INT 

T h B ( X — 1) i 6 

RE C 

X — 1) ■$ 6. 

; "8 

1050 

LET C 

= t-1 ( X ) 

1051 

LET S 

= N ( X ) 

1054 

GOSUB 

940 

1055 

GOSUB 

■1000 

1056 

FÜR Y 

= 1 TO 5 

1057 
(C , Y 
1056 

PRINT 

T R B ( X - 1) * 6 

NEXT ' 

Y 

1060 

NEXT 

x 


R tS I N D ' : X 




T 


R $ (URL T $ 
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1061 RETURN 

1070 Dir-i Km 

•1071 DIM T (13! 

1072 RETURN 

1080 GO S U B 107 © 

1081 FÜR X=1 TO 5 

1082 LET T (C (X) ) =T (C <X) ) +1 

1090 LET K (D (X) ) =K (D (X) ! +1 

1091 NEXT X 

1092 G O U B 6 4 0 

1093 RETURN 
1100 STOP 

4000 FOR 0=1 TO 5 
4010 LET H(Ü)=0(0) 

40 20 LET N(0:>=D(0) 

4030 NEXT O 
4040 LET LINE=9 
4050 RETURN 
5010 FOR 0=1 TO 25 
5020 NEXT O 

5025 P R I NT RT 21,0.; 5 $ RT 21,0 
5030 RETURN 
6000 GO 5UB 5 000 

60O5 PRINT " IRH GEHEN g|EHEN EJUS 


STEH 

GEN 

• • 



6010 

IF 

INKEY$ 

< > " 

" THEN GOTO 601 

0 

6020 

IF 

INKEY $ 


THEN GOTO 6020 

60 30 

LET 

E $ = INKEY 

$ 

6040 

IF 

E $ < > " E 

" AND E $ < > ' 1 S" AND 

E $ < > 

" H " 

THEN G 

OT O 

6010 

6050 

IF 

E*="S" 

THEN LET B=© 

6060 

IF 

E $ - " H " 

THEN LET B=-l 

6065 

IF 

E$="S” 

OR 

E$="H" THEN GO 

TO 6120 




6070 

G O S 

UB 502 

FI 


6080 

PRINT ■' 

UM 

UIEUIEL ERHOEH 

EN 8 

IE ’? 

. . 



6090 

INPUT B 



6 100 

IF 

B > BET 

OR 

B + 5TAKE> P9 THEN 


GOT u t.090 

6110 IF B •; =0 THEN GOTO 6000 
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6114. 

L. ET ST 

HK 

E = 

SThKE+B 





S 11S 

PRINT 

HT 

1 

3 10 ; P9 - 

STAKE - 

5 

■ 

' 1 

6120 

RETURN 








7000 

PRINT 








7010 

PRINT 

' * 


SIE H 

ABEN Bi 

E 

I 

N 

GELD" 








7011 

PRINT 

’ ' 

U O 

LLEN SIE 

100$ 

L 

E 

I 

HEN 

(J/N) ? 

' ' 







7020 

IF INK 

EY 

$ < 

THEN 

GOTO 

7 

0 

2 

0 









7030 

IF INK 

EY 

$ = 

" " THEN 

GOTO 7 

0 

3 

0 

7040 

LET E $ 

- INK 

EY $ 





7050 

IF E$< 

> ' ' 

■J" 

THEN GOTO 596 




706O 

LET P9 

= 100 






7065 

LET BO 

RR 

o L.l 

= B O R R: O l.-.l + 

1 




7070 

GOT O 1 

30 










RE K 


fckkrtMB 

4 







ICH NEHME ME INE K ARTEN 


bebe» essses mssa i kesssi mESsa 

BBB35« »£331 E£35£S EEC+Sa 

BEEK« BEEEi BEB EES HEEES EEEEi 

BEEEB EEEE« BESSES EEEE# EEEEi 

emi eeeei eeee« fieses eeee« 

EEEEI ES3EES E EEEI EEEES KEEäSI 

S2EE® gEEEB F33EES EEEEf EEEEI 


SIE HABEN 95 C3 
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Nessie 

In diesem Spiel, das von Dilwyn Jones erdacht wurde 
und nicht mehr als 1K braucht, versteckt sich das Mon¬ 
ster von Loch Ness hinter einem Felsen auf dem schau¬ 
rigen Grunde des Sees, wo es, damit die Aufgabe auch 
richtig schwierig wird, viele solcher Felsen gibt. Sie 
müssen also erst einmal herausfinden, hinter welchem 
Felsen sich die schreckliche Schlange verbirgt. Zugun¬ 
sten der Suchaktion sind die Felsen ordentlich numeriert. 
Drückt man die Taste mit der Zahl, die der Zahl auf 
einem Felsen entspricht, so zerbirst dieser Fels. War es 
nicht der Fels, hinter dem das Monster sich versteckt, 
so passiert gar nichts, außer daß das Spiel weitergeht. 
Schließlich gelangt man an den Felsen mit dem Monster: 
der Fels zerbirst, der Schlamm wird aufgewühlt, das 
Monster erscheint und schickt sich sogleich an, sich auf 
Sie zu stürzen und Sie aufzufressen. Um das zu verhin¬ 
dern, müssen Sie eine Buchstaben-Taste drücken und 
so Nessie den Garaus machen. 

Die Zeile 10 erzeugt eine Zahl von Eins bis Neun und 
verwandelt sie in ein String-Gebilde mit der STR$-Funk- 
tion, zum Zweck des späteren Kontroll-Vergleichs mit 
der auf dem Keyboard gedrückten Taste. Die invers ge¬ 
druckten Zahlen sind die Felsen (graphisch eindrucks¬ 
vollere Felsen konnten wir leider nicht zuwege bringen). 
Die Zeile 30 überwacht das Keyboard. Die Zeile 40 hält 
das Programm davon ab, weiterzulaufen, bevor eine Zahl 
von 1 bis 9 gedrückt ist. Die Zeile 50 erzeugt den Raum, 
der an die Stelle des zerstörten Felsens getreten ist. 
Die Zeilen 60 bis 80 verursachen eine Verzögerung, 
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darstellend die Zeit, die es braucht, bis der aufgewühlte 
Bodenschlamm sich wieder gelegt hat. Während dieser 
Verzögerung dürfen Sie keine Buchstaben-Taste drük- 
ken. 

Wenn Sie einen Felsen zerstört haben und Nessie kommt 
nicht zum Vorschein, verhilft Ihnen die Zeile 90 dazu, es 
noch einmal zu versuchen. Wenn Sie endlich den rich¬ 
tigen Felsen erwischt haben, setzt Zeile 100 das Pro¬ 
gramm fort und bringt das Monster ins Spiel. Die Schlei¬ 
fen in den Zeilen 110 bis 130 geben dem Spieler die 
befristete Chance, eine Buchstaben-Taste zu drücken 
und so das Monster anzugreifen. Verpaßt der Spieler 
diese Chance, so schlägt Nessie ihrerseits zu. Wenn Sie 
noch einmal auf Nessie-Jagd gehen wollen, geben Sie 
ein "Y" ein. 


1 RAND 

10 L„ E T U $ = S T R $ ( IN T ( R N D *9 > + 1 j 

£0 PRINT HT 3,3.; "fl | § 0 @ 

EU M !§l 0 " R i s , 14- B J I 8Ü 8'' .; Rn 9 

.. 14-.; "{=*»*§" 

3 0 L ET fl $ - IN K E V $ 

40 IP fl$<":l" OR fl $ > " 9" THEN GO 
TO 30 

50 PRINT flT 3, UAL fl$*3; " " 

60 FOR 1=1 TO RND*50+10 

70 IF IN K EV $ >"9 '‘ T H E N GOT O 210 

80 NEXT I 

90 IF fl $ < :> U $ THEN GOTO 3© 

100 PRINT AT 3 .UAL U $ *3; "* 1 ' 

110 FOR 1=1 TO 8 

120 IF INKEY$>"9" THEN GOTO 190 

130 NEXT I _ 

HB 14.; " " , "OOPS , EIN BISSCHEN 

LANGSAM HEUTE" 

1.4 5 P R I NT AT' 12,0;" N O C H EI N M H L. 
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150 INPUT H$ 

160 IF C0DE H $ •; > CODE '' U 1 ' THEN S 
TOP 

170 CLS 

ISO RUN 

190 PRINT PT 3 . <UPL U$*3-2> .1 "ER 

WISCHT" 

S00 GOTO 145 

£10 PRINT PT 0.7;"ZU FRUEH PH P 

BZIJG" 

izi‘ 2 0 GUT L l 14 5 

230 S P UE "NE5SIS" 

240 RUN 
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Camel 

Sie mußten mitten in der Sahara landen und irren nun 
durch den Wüstenstaub, nordwärts, südwärts, ostwärts 
und westwärts, je nachdem, ob Sie die Taste N (North), 
S (South), E (East) oder W (West) drücken. Auf ihren Irr¬ 
wegen finden Sie Schätze, aber Sie müssen auch Gift¬ 
schlangen, Wasserdieben und anderen schrecklichen 
Gefahren ausweichen. Insgesamt warten 10 Bedrohun¬ 
gen und Schätze auf Sie. Die Spielanleitung ist im Pro¬ 
gramm enthalten. „Camel“ wurde von Chris Callender 
geschrieben und von Chris Gifford adaptiert. 


er 

LET T $ = "" 

10 

PRINT 

T A B 12;" r.V.W* 1 ' 

15 

PRINT 

ThB 12; "| CAMEL I" 

£0 

PRINT 

The 12; "J" 

25 

PRINT 


30 

PRINT 


3 5 

PR INT 

"HALLO, WIE HEISSEN S 

4.0 

INPUT 

Nt 

45 

PR INT 


50 

PRINT 

"HALLO , " ; N $ , " . “ 

Pi Fi 

PRINT 


60 

PRINT 

"KENNEN SIE DIE REGEL 

65 

INPUT 

R $ 

70 

IF R $ 

<i:i=”N" THEN AOSUB 800 

75 

LET U 

= 200 

80 

D IM R 

( 2 00 ) 

F; Fi 

FÜR F 

=1 TO 10 

90 

LET R 

( F ) =F *500+500 

95 

NEXT 

F 

96 

FÜR F 

=11 TO 200 

97 

LET R 

(f:i =r (f-10) 
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100 

NEXT 

F 



105 

D IM 

P$ (£00 

, £5) 


1 10 

DIM 

P(£00, 

d .• 


1 15 

D IM 

8$ (£0 . 

32 j 


120 

FOR 

6 = 1 TO 

100 


1 £ 5 

LET 

P ( 6,1 j 

= I NT 

(RND*£7)+£ 

130 

LET 

P ( 6 . £ ) 

= I NT 

(RND*17)+£ 

135 

NEXT 

B 



140 

LET 

P $ ( 1 > = 

"EIN 

UIRBELNDER 

RMDS 1 

TURM" 




145 

LET 

P $ < £ ! = 

"EINE 

GIFTIGE 5 

LANG 

E " 




150 

LET 

p $ 13 :> = 

"EINE 

GROSSE Ofi 


155 LET P|(4.» = "DIE UERLORENEN d 
U WELEN" 

160 LET P$(5)="EIN KAMEL" 

165 LET P$(6 )="EIN ZEITSPRUNG" 
170 LET P$(7)="EIN COMPUTER" 

175 LET Pt(8 )="EINE KISTE GOLD" 
180 LET P$(9)="EIN SCORPION" 

185 LET F'$ ( 10) = " URSSERD IEBE " 

190 FÜR F = 11 TO £00 
195 LET P $ i F :* = ( P $ ( F - 10! ) 

£00 HEXT F 

£05 LET X=INT <RND*£7)+ £ 

£10 LET Y = INT (RNDilS) +£ 
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260 

LET B$=B$+"*" 


265 

FÜR B = X + 1 TO 31 


270 

LET B$=B$+" " 


2 75 

NEXT B 


280 

LET B$=B$+"«" 


•”< w CT 

LET 5*(Y)=B* 


290 

LET S$ (IS)="■ 



H H 


2 95 

C L S 


300 

FÜR B=1 TO 20 


305 

PRINT S$(B) 


310 

NEXT B 


3 15 

LET N = 1 


3 2 0 

IF P ( N , 1 ) = fl B S X AND 

P (N 

ABS ' 

f THEN GOTO 42© 


3 2 5 

LET N = N + 1 


3 30 

IF N <>201 THE N G OT O 

320 

■~j “j Cj 

IF ABS Y=18 AND ABS 

X — 2 

EN GOTO 7000 



34.0 PRINT "RICHTUNG ?" 

34-5 INPUT 

350 L ET C $ = D $ ( S T O ( L E N D $ ) ) 
3 55 LET C= UHL (C $) 

360 IE C> 10 THEN GOTO 34-5 


3 6 5 

LET 

D $ =D $ « 1) 



370 

IF 

D$="N" THEN 

LET 

Y — Y — U 

-7 CT 

IF 

D$="S" THEN 

LET 

Y = Y + 

330 

IF 

D $ = "Ü" THEN 

LET 

X = X + c 

3 3 5 

IF 

D$="U" THEN 

LET 

X = X — c 

y 0 
7000 

IF 

X = 30 AND Y = 

19 THEN GOTO 

395 

IF 

U <10 THEN PRINT 

"HOLEN S 


IE 5 C H N ELL U H S S ER" 

4-00 PfiUSE 100 
4-05 LET U =U-1 

410 IE U=0 THEN GOTO 6000 
415 GOTO 215 
4 20 G OT O R <N) 

1 © O 0 C L 6 

1005 PRINT "SIE KOMMEN IN EINEN 
S H N D ST U RM. SIE S EHE N NICHTS M E H 

R U N D K O M M E N N H C H " ; 


47 





Spiele für Ihren ZX 81 


1015 

LET X = 

I NT 

(RND*23)+2 

1020 

LET Y = 

INT 

< RND *19) +2 

1025 

PR INT 

" < “ ; 

X ; “ ; " Y " ) " 

1030 

PAUSE 

100 


1035 

GOSUB 

9 0 5 0 


104-0 

GOTO 2 

15 


1500 

1505 

PR INT 

"OH 

JERD RH MT.; EINE 


HLflMGE BRRR ICH Hfl£■ SE SCHLFlNGEM '' 
151© PRINT "ERSCHLAGEN SIE SIE B 
ITTE " 

15 15 LET Fl = INT (RND*5) 

15 20 IF Fh = 1 THEN GOTO 1550 
1525 PRINT "OH NEIN - SIE HAT 51 
E GEBISSEN" 

1530 PAUSE 200 

1531 CLS 

15 32 PRINT "NOCH EIN SPIEL OJ/f-N 


1535 

INPUT G $ 


1540 

IF G $ ( 1 li = " .J " THEN RUN 


1545 

GOTu 9999 


1550 

PRINT "GLUECK GEHREST , . . . 

i J O R 

SICHTIG SEIN" 


er |=; er 

GOSUB 9050 


1560 

P fl U S E 2 5 0 


15 65 

G OT O 2 15 


2000 

PRINT "GROSSARTIG - DR I 

ST 

U R SSI 

ER" 


2010 

LET fl=INT (RND*2)+1 


20 15 

IF h=2 THEN GOTO 2060 


2020 

PRINT "SIE BEKOMMEN 10O 

RUN 

KTE" 



2030 

LET I...I = LJ + 100 


2040 

GOTO 2065 


2050 

GOTO 9999 


2060 

PRINT "NEIN - SIE WURDEN 

GE 

TREUSCHT" 


2065 

PRIJSE 250 


20 70 

GOSUB 9050 


2075 

G OT O 2 15 


2500 

PRINT "GROSSARTIG HIER S 

IND 
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Camel 


D IE U E R S C H O L L E N E N .J U U E L E 

N" 

2510 LET T$=T$ + "DIE '...'ERSCHOLLENE 
N JUWELEN" 

25 20 G O S U E' 0000 
2525 PR U S E 2 50 
2530 G OT O 215 

3000 PRINT '•GUT “ ;Nt; " HIER IST 
EIN KAMEL" 

3004- PAUSE 250 
3006 CLS 

3010 PRINT "WOHIN SOLL ES SIE TR 

AGEN 2" _ 

3012 PRINT "GEBEN SIE ES , f ül^Wmai 
[§ DANN iS EIN" 

3020 INPUT X 
3025 INPUT Y 
3 0 30 G O SUB 0050 

3 0 3 5 G OT O 2 15 
350© PAUSE 250 
3505 CLS 

35 10 FOR B = 1 TO 10 

3515 PF: INT " ZEIT SPRUNG 

3517 PRINT " aagB 3 3 iBB ZEI 

TSPRUNG" 

3520 NEXT B 
3525 PAUSE 250 
3530 CLS 
3535 GOTO 1530 
4000 CLS 

4003 PRINT "HIER “ N $" IST EIN 
COMPUTER" 

4005 PRINT "ER HILFT IHNEN SUCHE 
N NACH: " 

4 0O 6 P A US E 2 00 
4008 CLS 

4010 PRINT "SUCHE NACH . 

40 15 FC'R B = 1 TO 10 

402© PRINT Bl" ";P$(B);CHR$ 118 
4025 NEXT B 
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4027 

PAUSE 

300 

4028 

C L S 


40 30 

PRINT 

"WELCHES WOLLEN SIE 7 

4035 

IN PUT 

Z 

4040 

IE P < Z 

. 1 < >0 AND P (Z . 2) < >0 

TH EN 

GOTO 4065 

4.04.5 

PR INT 

“ES G IBT K E IN E N 1 ‘ P $ ( 

4050 

PAUSE 

2 00 

4055 

CLS 


4050 

G uT O 40c!0 

4065 

PRINT 

"VERSUCHE : - (";P!Z, 1) ; 

" , " P < Z , 2 i ; 

" ;i •* 

40 70 

PAUSE 

200 

4075 

G O S U B 

9050 

4080 

GOT O 2 

15 

4500 

PRINT 

“HIER " N $" IST EINE 

KISTE GOLD 

* * 

4 5 10 

LET T $ 

= T $ + “EINE KISTE GOLD“ 

4515 

GOSUB 

9000 

4520 

PAUSE 

200 

45 25 

G OT O 2 

15 

5000 

PR INT 

"DA IST EIN SCORPION 

" N $ 



50 05 

LET A = 

INT ( RND #2 + 1) 

5010 

IE A = 1 

THEN GOTO 1525 

5015 

PR INT 

"GUT - ER HAT SIE NIC 

HT GEBISSEN 


5020 

G O SIJ B 

9 0 5 0 

50 25 

PAUSE 

200 

5030 

G OT O 2 

15 

5500 

RDIEB 

PRINT 

"IC H S EHE EIN E N UA SSE 

5 5 0 5 

LET A-- 

INT (RND*3) 

5510 

IF A < > 

1 THEN GOTO 5535 

Pi Pi 1 PI 

PRINT 

"SIE HABEN IHN U EBER I.-J 

RELTI6T" 


55 20 

PAUSE 

200 

er er -~i cs; 

G O S U B 

905O 

55 30 

GOTO 2 

15 

er er ■-.> er 

L ET ö = 

INT (RND*üi 


50 


Camel 


5 5 4 0 

PR INT 

"ER HAT ";O;" LITER G 

ESTÖHLEN" 


CT p- ^ p 

LET L.l = 

l.-.l - O 

5550 

PAUSE 

20 0 

p; p- p; -~i 

G O 6 U B 

9000 

5560 

G ÜT O 1 

20 

60 00 

PR INT 

"SIE SIN D UE R 0U R ST ET 

" ; N$ 



6005 

PRINT 

"HABEN SIE ES SCHON G 

EMERK 

T 


6010 

PAUSE 

200 

6© 15 

C L S 


6 0 £ © 

GOTO 1 

530 

7000 

PRINT 

"SIE SIND AUS MEINER 

LI U ESTE 

L E B E N D E NT K O M M E N '' 

70 10 

IF T $ = 

"" TH EN GOTO 704-0 

7020 

RR INT 

'' UND KONNTEN MITNEHME 


7022 

PA 

USE 

200 







7025 

CL 

5 








7 030 

PR 

INT 

tj 







70 4-0 

PR 

INT 

" BER 

EITEN S 

IE 

: = 

ICH 

H 

IJ 

F IHR 

EN 


F L U 

G U O R '' 






704 5 

G Ü 

T O 1 

5 3 0 







S000 

CL. 

S 








80 02 

PR 

INT 








8003 

PR 

INT 








8010 

PR 

INT 

H 

r 

LKOMMEN 

Z IJ 

M 

CAM 

E 

L 

SPIE 

L " 









8020 

PR 

I NT 

"DAS 

ZIEL u 

ÜN 

c 

AMEL 


I 

ST ; S 

IC 

H MI 

TDEN 

T A ST E 

GS! 0 



D 

IJ 

ROH C 

IE 


I...I IJ E 

STE ZU 

B E I.-.I 

E 

GEN" 



80 30 

PR 

INT 

"GEB 

E N S IE 

NAC 

H 

D E R 


R 

ICHTL 

NG 

EINEZAHL UNTER 

0 

E 

IN , 

IJ 

M 

D IE 

LA 

ENGE 

IHR 

ER SCHR 

ITT 

E 

FES 

T 

“ 7 * 

UL EGE 

N . 

' ' 








8040 

PR 

INT 

"£sfei = 

SIE GE 

HEN 


0 ME 

I 

L 

EN OE 

ST 

LICH 

• • 







8050 

PR 

I NT 

" IN 

DER l.-.l IJ E 

STE 


GIBT 


E 

5 10 



UER 

BORGENE 

SC 

H 

AETZ 

E 


UND G 

EF 

ÄHRE 

N" 







80 6 0 

RR 

INT 

"SIE 

SOLLEN 

S 0 


U IEL 


•3 
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CHflETZE U IE f-10EGL. ICH SRMMEL W , UN 
D ZUM FLUG- HRFEH KOMMEN, DER DR 
5 0 IN DER RECHTE N ECKE IST" 
8070 PRINT " [gl'äHäalgl SIE REIHE s® 

D O RT IST EIN ST R R K ES HITZEFELD, D 
RS IHNEN DIESICHT UEBER IHRE L.RG 
E U N M OEGLIC H MACHT. " 

8075 PRINT 

8080 PRINT "*** UIEL SPR5S IN DE 
R UIJ ESTE ***" 

8160 PAUSE 1500 
8165 RETURN 

9000 IF N <=10 THEN GOTO 9015 
9005 LET N=N-10 
9010 G OT O 9000 

9015 FOR F=N TO £00 STEP 10 

9020 LET P(F.1)=0 

9025 LET P(F,£)=0 

9030 NEXT F 

9035 RETURN 

9050 LET P(N,1)=0 

9055 LET P(N,2)=0 

9060 RETURN 

9070 SAUE "CAMEH” 

9080 RUN 
9999 ST uP 
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Höhlen 


Höhlen 

Nur wenn Sie sich auf das Äußerste konzentrieren, ent¬ 
gehen Sie bei diesem Programm der Chance, völlig ent¬ 
nervt zu werden. Von Paul Toland erfunden und zu einem 
herrlichen Graphics-Spiel gestaltet, ist dieses Spiel eine 
Übung in mentaler Arithmetik, angewandt auf ein spezi¬ 
fisches Problem. Sie müssen den Ausgang eines Höhlen- 
Labyrinths finden, wobei Sie die Route frei wählen dürfen. 
Das teuflische Problem liegt darin, daß Sie unterwegs 
gelegentlich auf zwei mysteriöse Gesamtsummen sto¬ 
ßen, A und B, vermehrt oder vermindert um Zahlen, die 
im Display angezeigt sind. Sie müssen herausfinden, wie 
Sie aus den As und Bs wieder Nullen machen, nur dann 
können Sie Ihren Weg sicher fortsetzen. Noch ein paar 
zusätzliche Schikanen: wenn Sie gegen eine Wand sto¬ 
ßen oder auf eines der inversen X, müssen Sie zurück 
an den Start. Am Ende des Spiels bietet man Ihnen eine 
weitere Runde an. Wenn Sie es noch einmal versuchen 
wollen, geben Sie ENTER ein - wenn nicht, ein N. 


Fi 

10 

C L S 

ÜB 

4-30 

12 

P P: I NT 


■■f.Mi 



M3 ‘ ' 

13 

. 

H 

= 0 

14. 

LET 

B 

= H 

15 

L.ET 

T 

= R 

£0 

LET 

X 

— £ 

er 

LET 

N 

= 0 

30 

LET 

Y 

= 1 

4-0 LET 
56 + 1 

P 

= PEEK 16396 + PEEK. 

50 

PRINT 

RT Y .. X “ •' 


üif 
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60 LET X1=X + i IMKEY $ = " 8 " ) - ( INKE 

Y $ = " 5 " ) 

70 L ET Y 1 = Y + ( IM K E Y i = " 6 " ) -(INK E 

Y $ = '' 7 “ ) 

80 PRINT HT Y,X;CHR$ N 
90 LET N=PEEK (P+YU33+X1) 

100 P R I NT RT Y 1 , X 1 ; " 0 " 

110 IF N =0 THEN GOTO 210 
115 IF N <166 OR N >191 THEN GOTO 
20 

120 IF N=189 THEN GOTO 310 
130 IF N = 179 THEN GOTO 260 
14-0 LET R = R + S ( N -165,1) 

150 LET B =B +8 ( N - 165,2 j 
160 LET D $ = STR $ R 
170 PRINT RT 1,28;D$ 

180 LET D$=STR$ B 
190 PRINT RT 3,28;D$ 

210 LET X= X1 

220 LET Y=Y1 

230 LET T =T + 1 

240 PRINT RT 3,16;T 

250 GOTO 50 

260 IF fl<>0 OR B < > 0 THEN GOTO 2 
90 

270 PRINT "SIE HABEN ES GESCHRF 
FT - STARK" 

280 GOTO 350 

290 PRINT "RECH GEHABT El ü. [=J S 
OLLEN El SEIN" 

3 00 G O T O 3 5 0 

310 PRINT "SIE SIND MIT E§ KOLLI 
DIERT" 

350 PRINT "NOCH EINMAL ?" 

360 INPUT C $ 

3 70 IF C $ •: > 1 ' N " THE N R U N 

400 STOP 

4 3 0 P R I NT '' f ü | r>! i'« IM MMM p MMM ü 

' j' >: WMM * '• ü MMMM J - 4 TT:«,«*« sy- 

ilifi m WIMti MM MM + 3 ilüillT i 

M E Mi WMMM i «• Ü |!- 2 IBil + 7RL 

m üb mm, iS f süüin 
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Höhlen 


z' r< I ! 5i< <'» m '> "('< 'Z i» ü ;s'; i if?s s,< 

-«-• <*< 'i' 1 '!! f <"<ü.Ji'i "i-<< 

E3 ?; i ■>'< j ': «O' "?;'n £i| '< «* | || s< f'< ? isgjf «m | il 

' i .•*; 'i i'i ',S"'s \("! <' i ; + 7 03"" J "><<* "'5"'' i;S: 

. $$<{■?■'Pt'i 5 J' z's.r- •;;•!'• - 1 ;• §g 

!5'i-f;; |£|p$ +S^z5-fz r 1 

" , / 'c ' -'vfl + i - 7 +l •«■■z.. - i ipg z/" f ; 

' 'I <<<'! ' Z'5'! '5 <;'J Z'fj + 3gj<,>üj - 6 '< ; + 1 1 

:;■■> u WMi: M ~ t" + i 

; ?« - ' > - " j <z{ $4 z>r<}- s v - » ' + l 

(3 ' < ' - 1 < * -< < 

; L + 3®. - ' JB + 1" <""*' «> <;..jL {,' - > 's " 1 

; ' < s - 1 \ ;s'/ < f'W- iS+11-3 ’ iSS<SS'<, S'fi 

SS SS, M< , SS < < ; 5' ;'iS !' .J _ 3 f j< + R / 

,', ;j , m M ' i , 5; ;; si , ; + 3 g ,S< >j 

i ( > ' " ü 

■ ■ 

440 LET 1=1$ = "-207-1-70101-106030 
30102-1" 

450 LET B $ = "Ö6-10103-6-3-30307- 
101010 1" 


460 

DIN 

S r 13 

. 2 ) 



470 

FÜR 

I - 1 

TO 13 



4 80 
1*2) 

LET 

S ( 1 , 

1) = U R L 

R $ (1*2-1 

TO 

4 90 

LET 

S ( I , 

2)=URL 

B$(1*2-1 

TO 


I * 2 .1 

500 WEXT 1 
510 DIf-1 D $ ( 4 j 
520 RETURN 
6 0 0 S R U E “ C RUERNRI" 
700 RUN 
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Hurkles Labyrinth 

In diesem Spiel von Paul Toland durchsuchen Sie ein 
beliebig aufgebautes Labyrinth, mit dem Ziel, denHurkle 
zu finden. Das Spiel rollt in einem realen Zeitablauf ab. 
Sie wandern mit Hilfe der Tasten “5”, "6”, “7” und “8” durch 
das Labyrinth und versuchen, auf das Feld zu gelangen, 
auf dem der Hurkle auf Sie wartet. Natürlich können Sie 
den Hurkle nicht sehen, da er nur unter Dilitium-Bestrah- 
lung sichtbar wird aber die Position des Hurkle wird 
Ihnen durch Nord-, Süd-, Ost- und West-Signalements auf 
der Anzeige oben links am Schirm angegeben. Wenn 
Sie den Hurkle gefunden haben, drücken Sie "N”, um 
das Programm zu beenden, oder irgend eine andere 
Taste, um das Spiel zu wiederholen. 

Zeile 5 baut das Labyrinth so auf, daß es in allen seinen 
Teilen zugänglich ist. Die Figuren in M$ haben Codes, 
die brauchbare Bildschirme aufbauen, wenn Sie eine 
RAND N-Order bekommen. Es sind viele solcher Schir¬ 
me denkbar, wir haben für dieses Programm aber nur 
die 14 besten vorgesehen. Der Aufbau des Labyrinths 
läuft im SLOW-Verfahren ab. Das braucht seine Zeit, aber 
der Vorgang ist faszinierend zu beobachten. 


£ RAND 

5 L ET M $ - " P “■ ■? > .-■■ 4-9EHIK L.N ‘' 

7 R fi N D Ü Ü D E M $ ( IN T ( R N D *14.) 


) 


10 

£0 


FÜR I: 
PR INT 


: 1 TO 


30 NEXT I 
4-0 FOR 1 = 1 TO 



30 


+ 1 
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50 LET X = INT (RND*£8) +1 
60 LET Y = INT (RND+9i *2 + 1 
70 LET L = INT (RND* (29-X) ) +2 
80 FÜR ü=0 TO L 
90 PRINT HT Y.X + .J;“ " 

100 NEXT ü 

110 LET X=INT (RND*15)+2+1 
120 LET Y = INT ( RND * 17 ) +1 
130 LET’ L = INT ( RND * (19 -Y 1 ) + 2 
140 FOR ü=0 TO L 
150 PRINT HT Y + J . X; '' " 

160 NEXT ü 
170 NEXT I 
175 LET T-0 

180 LET P = P E E K 16396 + 256+PEEK 1 
6397+1 
185 RAND 

190 LET X = I NT (RND*704) +1 
195 IF PEEK (P+X) >0 THEN GOTO 1 
90 

2 00 LET H = INT (RND*7©4) +1 
205 IF PEEK (P+H) >0 THEN GOTO 2 
00 

210 POKE P+X,28 

220 LET D = X+ (INKEY $ = "8") - ( INKEY 
$ = " 5 " .1 + (INKEY $ = •' 6' 1 j +33- ( INKEY * = ” 
7")*33 

230 POKE P+X.0 
240 LET T =T + 1 

250 IF PEEK (P+D)=0 THEN LET X= 
D 

255 IF X = H THEN GOTO 350 
260 LET XD=INT (X/33) 

265 LET XR = X --XD *33 
270 LET HD=INT (Hx33) 

2 75 L ET HR=H-HD* 33_ 

277 PRINT RT 0,5 ; 1 'MHMIHHHMUHHI 
H" 

280 IF X D = H D THEN GOTO 3 10 
2 90 IF H D <X D THEN PRINT RT 0,5; 
"NORD" 

300 IF H D >X D THEN PRINT RT 0.5; 
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310 

IF X A = 

HR 

THEN 

G OT O 

2 10 



320 

IF HA < 

Xh 

THEN 

PRINT 

AT 

0 , 

, 10 

"UE 

ST ‘ 1 







330 

IF HA > 

XR 

THEN 

PRINT 

AT 

0 . 

, 10 

1 ' O S' 

T " 







34-0 

G GI LJ cJ 

10 







IJNDEN' 


PRINT "SIE HOBEN HURKLE IN 
1 SEKUNDEN GEF 

1 " 

PRINT "NOCH EINMAL «U/NJ" 
POKE P+H ,45 

IF IN K EY$ = "" THEN G OTO 3 7 0 
IF INKEY $ = " N " THEN GOTO 4-10 
CLS 
RUN 

PRINT "AUF WIEDERSEHEN '' 

G OT O >4-10 

SAUE "HERKULES" 

RUN 



Hinrichtung 


Hinrichtung 

In dieser witzigen, von Paul Toland erdachten Version des 
"Hangman ,L Spiels, geben Sie 30 Worte in den Speicher 
Ihres ZX 81. Aus diesem Wort-Vorrat wählt sich der Com¬ 
puter 1 Wort aus. Innerhalb einer begrenzten Zeitspanne 
müssen Sie herausfinden, welches Wort es ist. 

Beim ersten RUN des Programms werden Sie aufgefor¬ 
dert (Zeile 3), Ihre Worte nacheinander einzugeben. Es 
erhöht den Reiz des Spiels, wenn dieses Einspeichem 
ein anderer für Sie besorgt, sodaß Sie gar nicht wissen, 
welche Worte eingegeben werden. Als weitere Verfei¬ 
nerung des Spiels raten wir Ihnen an, Worte zu neh¬ 
men, die eine gewisse Gemeinsamkeit haben, wie zum 
Beispiel „mein/dein/sein“, „müde/rüde“ oder .freund/ 
Feind“. Wenn Sie die Worte eingegeben haben, kön¬ 
nen sie zusammen mit dem Programm auf einem Band 
SAVED werden. 

Das Programm wird SAVED mit dem Befehl GOTO 390. 
Damit stellen Sie sicher, daß das Programm beim Re- 
loading automatisch gestartet und Ihre Worte vor einem 
Löschen geschützt sind, wenn Sie einen RUN-Befehl 
geben. Um das Programm zu starten, nachdem Sie es 
eingespeichert haben, drücken Sie GOTO 5, 

1 D IM D$ (30,10) 

2 F O R I = 1 T O 3 0 

3 INPUT D $ ( I) 

4 HEXT I 

5 P R I NT PT 2 , S ; " H I N R IC HT IJ N G ' ' 

7 PRINT PT 0,0; 

10 RRND 
20 L. ET 6=0 
3 0 L ET C=G 
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4-0 

EO 

R I 

SS 

i 

T 

Ö 10 





50 

PR 

INT 


I.; 

T 

RE £.; 

" 1 

i - 



60 

N E 

XT 

I 








70 

PR 

I NT 


■ • 


HtüilKMiSI 

■' 




8 0 

PR 

INT 


RT 


& , 3 11 

o O 11 




90 

PR 

INT 


RT 


9 .. 3 1 * 

> SS < " 




95 

PR 

I NT 


RT 


19.3 ; 

“ IHR 

UERSL 

JCH' 

1 

00 

LE 

T R 

ri 

IN 

T 

< RND 

■+• 3 0) 

+ 1 


1 

10 

LE 

T U 

$ 

= “ 

* 1 





1 

20 

FO 

R I 

SS 

1 

T 

Ü 10 




1 

30 

IE 

D$ 

( 

R , 

I 

•j y II •> 

T HE 

N LET 

y $ 


U $ + D $ i R , I j 
14.0 NEXT 1 
150 LET L.=LEN U$ 

160 PRINT RT 8,20;"DAS WORT" 

16 5 L E T C $-''•? •? ?'? •?'?'?'?'? ? " < T O L > 
170 PRINT RT 10,201C$ 

18 0 P R I NT RT G , 3 '' H'' 

190 IE INKEV $ = "" THEN GOTO 190 
1 9 5 L ET G $ = IN K E V $ 

00 EOF; 1 = 1 TO L 

10 IE G $ < > U $ ( I ) THE N GOT O £4-O 
20 LET G=G-1*(G>=0) 

30 LET C$ <I) =U$ ( I) 

4-0 NEXT I 

50 IE C$ = U $ TUEN GOTO 320 
60 PRINT RT G , 3.; " 

70 LET G = G + 1 

80 IE G <10 THEN GOTO 170 
90 PRINT RT 12,3.;"+ +" 

00 PRINT " 


31© 

PR INT 

RT 2,20.; "GE K O E P ET 

3 15 

G OT O 3 

30 

320 

P R I NT 

RT £,£0;"FERTIG" 

330 

PRINT 

RT 1© , £0 .; y $ 

3 40 

P R I NT 

"NOCH EINMAL 6J/N 

3 5 O 

INPUT 

R $ 

360 

IF R $ = 

"N" THEN STOP 

370 

CLS 


380 

G OT O 5 


390 

SRUE " 

EXE®" 

400 

G OT O 5 
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Anagramme 


Anagramme 

Ähnlich wie bei „Hinrichtung“ geben Sie bei diesem 
Paul Toland-Spiel 30 Worte in den Speicher Ihres Com¬ 
puters. Der Computer wählt eines dieser Worte aus. Sie 
haben dann eine begrenzte Anzahl von Versuchen, um 
herauszufinden, welches Wort sich der Computer aus¬ 
gesucht hat. 

Beim RUN des Programms werden Sie aufgefordert, 30 
Worte einzugeben. Nach jedem einzelnen Wort müssen 
Sie ENTER drücken. Das Programm ist nun fertig. Wenn 
Sie es ablaufen lassen, verrät Ihnen der Computer das von 
ihm erwählte Wort, aber als Anagram, das heißt in einer 
völlig durcheinandergewürfelten Buchstabenfolge. An 
Ihnen ist es nun, herauszufinden, welches Wort der Com¬ 
puter meint. 

Wenn Sie den Wort-Vorrat eingegeben haben, können 
Sie das Programm mit GOTO 340 aufnehmen. Damit 
stellen Sie sicher, daß das Programm beim Reloading 
automatisch läuft. Wenn Sie das Programm stoppen, 
nachdem Sie es eingegeben haben, und es laufen lassen 
wollen, ohne es zu einer Löschung der Worte kommen 
zu lassen, können Sie es mit GOTO 10 starten. 

1 DIM D* (30,10) 

S FÜR 1=1 TO 3© 

3 INPUT D$(I) 

4. HEXT I 
10 RAND 

£0 PRINT " RN fl GR RlMM" 

30 LET R-INT (RNDi30)+1 
40 LET Ut="" 

50 FÜR 1=1 TO 10 
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60 IF D$(R,i:i >" " TUEN LET U$ = 

U$+D$CR,I) 

70 NEXT I 
SO LET L=LEM U$ 

90 LET £.$ = " " ( TO LJ 

100 FÜR 1=1 TO L 
110 LET R--INT (RNDiL) +1 

120 IF S $ < R ) >.r H E N G O T O 110 

13 0 L ET S $ C R j = U $ (I) 

14.0 NEXT 1 

150 PRINT "IHR RNRGRftHM : ";S$ 

160 FOR Y = 1 TO 9 
170 PRINT Y;" " ; 

180 INPUT G$ 

190 PRINT G$ 

200 IF G$=U$ TUEN GOTO 280 
205 PRINT " 

210 FOR 1=1 TO LEN G$ 

215 IF I > L. TEiEN GOTO 24-5 

220 IF ß $ (I) = U $ CI) THEN PRINT " 

2 30 IF G $ < I j < > U $ (I) T H E N P R I NT 

240 NEXT I 
245 PRINT 
250 NEXT Y 

260 PRINT "ZEIT UM- DAS WORT Ufi 
R " U $ 

270 G OT O 2 90 

2 80 P RINT "RIC HTIG '' 

290 PRINT "NOCH EINMAL CU/Nj 7" 
300 INPUT H$ 

310 IF fi$="N" THEN STOP 

3 3 0 G ÖT O 1 © 

3 4 0 5fl UE "R N R® " 

35© GOTO 10 
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Reaktion 


Reaktion 

Dieser Reaktions-Test von Alistair Miller ist in BASIC und 
in Maschinencode geschrieben. Das Programm testet 
Ihre Reaktionen auf verschiedenen Geschicklichkeits- 
Ebenen. Beim ersten Durchlauf zeigt es im Demonstra¬ 
tions-Modus diese verschiedenen Geschicklichkeits- 
Ebenen. Der Maschinencode beansprucht 77 Bytes und 
ist im REM in Zeile 1 gespeichert. 

Wenn das Programm läuft, geben Sie Ihre Geschicklich¬ 
keits-Ebene ein. Nach einer kurzen Pause sehen Sie, wie 
sich eine Linie mit der spezifizierten Geschwindigkeit 
über den Bildschirm bewegt. Sie müssen nun ENTER/ 
L/K/ L oder H drücken, um die Linie zu stoppen. D er C om- 
puter zeigt Ihnen an, um wieviele Einheiten sich die 
Linie bewegt hat, und gibt Ihnen die Chance, mit einem 
neuen Versuch zu einem besseren Resultat zu kommen. 
Sollten Sie versuchen, eine Taste zu drücken, noch ehe 
die Linie aufgetaucht ist, macht Ihnen der Computer 
klar, daß Sie gemogelt haben: Sie müssen dann das Spiel 
noch einmal von vome beginnen. 

Wir gehen davon aus, daß Sie keinen Assembler haben, 
und geben Ihnen gleich die nötigen Modifikationen für 
das Programm: Geben Sie das Wort REM ein, gefolgt von 
73 Punkten; jetzt geben Sie die Zeilen 9000 bis 9070 ein; 
lassen Sie die Routine laufen; dann geben Sie das Unten¬ 
stehende ein, wobei 7” als ENTER steht. (Beachten Sie 
dabei bitte, daß Sie in der Praxis keine Zwischenräume 
lassen müssen; diese sind hier nur eingerückt, damit Sie 
einen besseren Überblick haben; weiterhin müssen Sie 
darauf achten, daß Sie keine “O" eingeben, sondern 0, 
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also Nullen.) 

2A0C40/ IE 16/ 012100/ 0909/ 0909/ 0909/ 0909/ 
0909 / 228440 / ED4B82 40 / 3680 / 23 / 228440 / 
0664 / 0E64 / C5 / CD BB 02 / 7D / CI / FE BF / C8 / 
0D / C2BF 40 / 05 / C2B440 / C39E40 / S / 


1 REM U R?BBE£RND72 — 1 5 «««w» 
«»61RNO GOSUB "4RND" GOSUB 'ILR 
ND IC OS ElR ND Ü«7 6*|R N D» 1 '? : ?UhL LN ffl 
AT RETURN SC OS $T RB SR N Dl TR 13 H 
RND7HRNO 

3 00 P R I MT RT 0,8; "REH KT IO N ST E ST 


310 PRINT "EINE ZEILE BEWEGT 31 
Ü H U EBER D E N B IL D 5 C HIR M . .ST O P P E N 
S IE S IE S O S C H N E L L R L S M O E G L IC H 


320 PRINT 
STEN- ... 
350 PRINT 

360 PRINT 
£ 1 " 


"BENUTZEN SIE DRZU TR 

ob es ia h muraBBH" 

rt 11, 0 ; - “nrnrnr-i 


3 ? 0 P RINT RT £1,0;"DRUE C K E N SIE 
DnaSOSBIl EUER START" 

3 80 FOR R--100 TG 1 STEP -5 
3 8 £ PRINT fl T £1.0; "DR U E CKE N SIE 
NEULINE FUER STRRT '' 

385 POKE 16563,R 

387 POKE 16565,R 

389 P RINT RT 17,1; "S CHUIE RIGKEI 

TSGRRD: ";R;" 

390 RAND USR 165£0 

4- 0 0 IE IN K EY $ •; >.T H E N G OT O 4- 3 0 

4-10 P R I NT RT 10,0; " 

4-20 NEXT R 

425 GOTO 380 

4-30 PRINT RT 10.0;" 
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440 

R R I NT 

RT 

2 1 

.. 

0 1 '' 

SCHUIERIGKEI 

TSGRRD 




* * 

4 5 0 

INPUT 

s 





4 6 0 

tr; 

IF 6 -i 

1 OR 

5 

> 

100 

TUEN GOTO 4 

_ 1 w 

4 7 0 

POKE 

16 5 6 

3 , 

:5 



460 

PO KE 

16 5 6 

er 

S 



490 

POKE 

16514 , 

0 



500 

POKE 

16 5 1 

er 

0 



5 05 

PRINT 

RT 

17 

, 

1; “ 

SCHUIERIGKEI 

T 5 G R 

RD = " 

; 5 ; " 


*' 



5 10 

PRINT 

RT 

14 

, 

0 " 

ZUFRELLIG RU 

SGEUREHLTE 

PRO 

SE 

• 1 



5 20 

FOR R 

= 1 T 

O 

INT 

(RND *20©i 


530 IF INKEY$ < >"" TUEN GOTO 62 0 
5 40 NEX'T R 
5 5 0 R R N D IJ 6 R 165 2 0 

5 60 L..ET K--PEEK 16514 +256 iF'EEK 1 
6 5 15 

5 70 IF K >=21 TUEN GOTO 600 
580 PR INT RT 14,0.;" 5 IE HRBEM BE 
I " ; K; " GESTOPPT 


590 

G OT 0 6 6 0 



600 

PRINT RT 14 

. 0' 

'NICHT GESCHR 

FFT 



" 

6 10 

GOTO 660 



620 

F O R R = 1 T O 

20 


6 3 0 

PRINT RT 1© 

, 0 ; ' 

. .. 

64-0 

PRINT RT 10 

, 0 ' 

'BETRUEGER" 

650 

N E XT R 



660 

FOR R = 1 TO 

100 


0 R 2 

IF INKEYS<> 

■ 1 1 1 

f H E N GOTO 67 0 

6 6 0 

N E XT R 



6 7 0 

PRINT RT 10 

, 0 ' 

’ 

680 

PRINT RT 14 

, 0' 

■ 

6 9 0 

GOTO 380 



80 0 0 

STOP 



9100 

SRUE "RERta" 



9200 

RUN 
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Lebenswandels-Bilanz 


Dieses Programm zieht die Bilanz der Veränderungen, 
die sich in letzter Zeit in Ihren Lebensumständen er¬ 
geben haben, und erklärt Ihnen die Auswirkungen dieser 
Veränderungen auf ihr Ego. Jede Veränderung in den 
Lebensumständen, egal ob positiv oder negativ, erzeugt 
einen Stress. Auch Weihnachten schafft Stress, gar nicht 
zu reden von einem neuen Job oder Familienzuwachs. 
Der Bildschirm konfrontiert Sie mit einer ganzen Reihe 
von Möglichkeiten, zum Beispiel wirft er die Möglich¬ 
keit einer SCHWANGERSCHAFT auf. Wenn Sie also 
schwanger sind, drücken Sie “Y" (für YES/JA). Sind Sie 
nicht schwanger oder gehören gar dem männlichen Ge¬ 
schlecht an, so drücken Sie “N". Zum hoffentlich guten 
Ende faßt der Computer Ihre Lage zusammen und erteilt 
Ihnen eine Lektion über Ihren Lebenswandel. 


150 PRINT 

Bssamm- 

15 5 P R X NT 


HHmagHaegEimi 


16£ 

PRINT " UH 

E 

ER REt 

tDERÜ 

NGEN 

IN 
ZU« 

IHREM L. 

UN PT 

Ei B E 

NSWRt 

BEE 

•IDEE 

Z IN F L 

IHRE 

USSE 

170 PRINT RT 20,1; 
E MIT EDh ODER IDE IN" 
1.80 LET L=0 

190 GOTO 250 

200 PRINT RT 10,0; 

"Rt-m 

L $ ; " _ 

.10 RT E 

N 51 

2 10 
"N" 

IP INKEY $<> 
TUEN GOTO 21 

‘ ‘ ,J ' * 
0 

RND 

INKE 

Y $ < > 

£ £ £ 
URL 

IF INKEY$=" 
5* (1*2-1 TO 

. J ' * 

I *£ 

TUEN 

;i 

LET 

L ~L + 
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30 

LET 

I 


i +1 



£ 

3 £ 

FÜR 

K 


1 T 0 10 



£ 

3 4- 

N E X 

T 

K 




;£ 

40 

RET 

IJR 

N 




'£ 

50 

LET 

I 

= 

1 



£ 

60 

LET 

s 

$ 

~z 9 9 7 3 7 16.5 8 

Fi F. Fi F, Fi 

50474 

54- 

54 4 

■ 404 

03 

9 

3 39 383 7 3 6« F; 

5 33 3 1 

:_s 0 2 9 £ 

9£ 

9 £ 9 

12 8 2 

FT£ 

6 

2524232120£ 

02019 

19 13 1 

7 1 

615 

; i s i 

31 

£ 

11" 



£ 

70 

LET 

L 

$ 

-"PARTNER G 

ESTOR 

BEN" 

£ 

7 5 

G ü S 

U B 


£00 



£ 

8 ö 

LET 

L 

$ 

="GESCHIEBE 

N" 


£ 

;~j p; 

G O S 

ÜB 


£00 



£ 

90 

LET 

L 

$ 

=”HARTE dro 

GEN R 

UFGEG 

EB 

EN" 







'£ 

95 

G ü 5 

ÜB 


£00 



! "i 

00 

LET 

L 

$ 

-"GETRENNTE 

EHE " 



05 

L? IJ •”> 

IJB 


£00 



’ji 

1 0 

LET 

L. 

$ 

= "GEFAEN G NI 

SST Rh 

FE" 

3 

15 

G Ü 5 

U B 


£00 



•ji 

£0 

LET 

L 

$ 

--"TOT EINES 

FAN I 

LIENM 

IT 

GL I 

EDS 

1 * 





3 

•“j d| 

G ü S 

IJB 


£00 




3© 

LET 

L 

$ 

="UERLETZT 

ODER 

KRANK 

HE 

IT " 







3 

"“i Fi 

G O 3 

IJB 


£00 




4 0 

L ET 

L 

$ 

= "HE IRRT" 



3 

4 5 

G O S 

IJB 


£00 



i.’i 

50 

LET 

L 

$ 

="ENTLASSEN 

WORD 

EN" 

•J« 

Fi F 

G Ü S 

U B 


£00 



3 

60 

LET 

L 

$ 

-"UERSOEHNU 

NG IN 

DER 

EH 

E " 







o 

65 

G ü S 

ÜB 


200 



3 

70 

LET 

L 

$ 

-"PENSION IE 

RT WO 

RDEN" 

3 

p- 

G Ü S 

U B 


£00 



3* 

8 0 

L. ET 

L 

$ 

= "IST EIN F 

AHILIENMIT 

GL 

IE D 

K R 

RNK 

' ' 



•_T« 

Fi Fi 

G Ü S 

ÜB 


£00 



3 

90 

L ET 

L 

$ 

="SIND SIE 

SCHWA 

N GER " 

‘.j$ 

9 5 

G ü S 

IJB 


£00 



4- 

00 

LET 

L 

$ 

="HABEN SIE 

IHRE 

40 Z 

IG 

ARE 

TTE 

N 

p 

R UT A G A IJ F G E 

GEBEN 



67 






Spiele für Ihren ZX 81 


4.0 5 G O S U B S 0 0 

4-10 LET L$ = "HRBEN SIE IHRE LAST 
BEIM SEX" 

4-15 Lj O S U B 2 0 0 

4-20 LET L$ = "ERI,)hRTEN SIE FRMILI 
ENZUUhCHS" 

4.25 GOSUB 200 

4 30 LET L$ = "IHRE GE S CHAEFTE M E U 
GEORDNET" 

4 35 G O S U B 2 0 0 

44 O LET Lt = "FINft N ZIELLE U E R ft E ND 
ERUNGEN" 


445 

GOSUB 

200 



4 5 0 

LET" L.. 

$="IST EIN 

FREUND 

GEST 

ORBEI' 

•J " 




455 

GOSUB 

200 



460 

LET L 

* =.- "HABEN S 

IE EINE 

AN DE 


RE ARBEIT" 

4- B 5 G O S U B 2 0 0 

4.7 0 L. ET L $ = ‘‘ ST R E IT E N S IE O FT M I 
T DEM PARTNER" 

475 GOSUB 200 

4. S 0 L ET L$ = " M E N ST R U AT IO N S B E S C H U 
ERDEN" 

4SS GOSUB 200 

4 90 LET !_$-•" KREDITE ODER PFAEND 
UNGEN" 

49 5 G O S U B 2 0 0 

500 LET L$ ="SCHULDEN UEBER 2000 
0 DM" 

3 0 3 G O S U D 2 0 0 

5 10 L ET L$ = " N E U E U E R ft NT W O RT U N 6 
IN DER ARBEIT" 

5 15 G O SIJ B 2 0 0 

5 2 © LET L$ = "FLU GUE R S P ft ET UNG '' 

525 GOSUB 200 

530 LET L $ = "HAT EINES DER KINDE 
R DAS HAUS UERLASSEN" 

5 35 G O S U B 2 0 0 

540 LET L. $ = " HABEN SIE RERGER MI 
T SCHWÄGERN" 

5 4 5 G O S U B 2 © 0 
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55O L ET L4 = "BESÜN D ERE LEIST U N G 
UGLLBRRCH r " 

555 GOSUB £00 

5 60 LET L $ —"HAT DER PARTNER BEG 
ONNEN ODER RUFGEHOERT ZU RRBEI 
TEN " 

5 6 5 ö O S U B S 610 

5 70 LET L $ ="HABEN IHRE KINDER M 
IT DER SCHULERUFGEHOERT ODER RNG 
EP RNGEN" 

575 GOSUB £00 

580 LET L$="HRBEN SICH IHRE LEB 
E N 5 U t-1 S T H E N D E GERE N D E R T '' 

5 8 5 G O S U B £ 0 0 

5 9 0 L. E T L$ = “ U E R H E N D E R U N G E N IHRE 
R GEUOHNHEIT" 

5 9 5 G O S U B £ 0 0 

600 LET L$="RERGER MIT DEM CHEF 

6 615 G O S U B £ 0 0 

610 LET L $ = 1 ' HABEN SIE RUFGEHOER 
7 MEHR RLS 4-021 GR RETTEN RM TAG Z 
U RAUCHEN" 

615 GOSUB £00 

620 LET L$="HABEN SICH IHRE RRB 
E IT S ST U N D E N O D E R G E U O H N H E IT E N G 
EAENDERT " 

6 £ 5 G O S U B £ 0 0 

6 30 LET L. $ = " HATTEN SIE EINEN UO 
H N U N G S U E C H S E L. '' 

6 35 G O SU B £00 

640 LET L$ :* "HATTEN SIE EINEN SC 
HULUECHSEL" 

6 4- 5 G O S U B £ 0 0 

6 50 LET L $ = "ERHOLEN SIE SICH SO 
UIE L UIE FRUEHER" 

R 5 5 G O S U E' £ 0 0 

660 LET L.$ = " BETREIBEN SIE NOCH 
RELIGIOE S E R KTIUITRETEN" 

6 & 5 U O S U E; £ 0 0 

6 70 LET L$=-"HAT SICH IHR GESELL 
SCHRFTLICHES LEBEN GEREMDERT ' 1 
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*37 5 Lr* i_t 3 li 3 0 0 

6 80 L_ E T L$ = " H Y P O T H E K E N 0 D E R S C H 

ULDEN UNTER 20000 DM" 

6 S 2 GO SU B 2 0 0 

684 LET Li="HOBEN SIE DIE SCHLfl 

FGE W Ü H NHEITEN GEHE NDERT '' 

5 8 6 G O S U E; 2 0 0 

690 L.ET L $ = " IST D IE ZHHL. DER PH 

MILIENT REP F EN G E SU NKE N 0DE R G E STI 
EGEN " 

6 95 G O S U E: 2 00 

700 LET L$="HHBEN SIE IHRE KULI 

NH RIS CH E N 6 EUO H NHEIT EN GERE N D 

ERT " 

7 0 5 G O S LJ B 2 0 0 

710 LET L $ ="NREHERN SICH DIE PE 

R IEN" 

7 IS GOSUB 20© 

7 20 LET L $ ="STEHT WEIHNHCHTEN U 

OR DER TUER" 

7 25 GOSUB 20 0 

730 LET L $ ="HABEN SIE DAS GESET 
Z IJEBERTRETEN" 

7 3 5 G O S U B 2 0 0 

740 PRINT RT 7,1.; "IHRE L.E.U. T 
E ST P U N KT Z H H L I ST '' 

741 PRINT HT 8,13.;L 

7 50 PRINT . . " DAS URTE I 

L - 

7 60 IP L <150 THEN PRINT "SIE PU 
E H R E N E IN E N S IC H E R E N , ST A B IL. 

EN LEBENSWANDEL UND IHNEN WIRD K 

AUM EIN UNFALL ODER EINE KRANKH 
EIT ZUSTOSSEN." 

765 IF L=0 TUEN PRINT "-BIS S 

IE AN LANGEWEILE STERBEN" 

7 70 IF L >149 AND L <2 00 TUEN PRI 
NT "ES GIBT EINE 37 PROZENTIGE 

W A H R SÜ HEINLICH KEIT , D A S S IHN 
EN EIN GESUNDHEITLICHES ODER FI 
NAN-ZIELL.ES PROBL.EM BEGEGNET „ " 

7 80 IF L >199 AND L<3 00 TUEN PRI 
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U H HRS CHEIMLICHKEIT, DR S S SIE 


G E S U N D H E IT L IC H E N O D E R F IN R N Z 
I - E L L. E N S C H U IE R IG K ETE W B E G E G N E 
N SIE SOLLTEN IHREN LEBENS t-.l fl N D 

EL. ORDNEN." 

7 90 IF L. >299 TUEN RR INT " ** PR 5 

SEN SIE RUF ** BEI IHNEN LIEGT 
EINE 79 PROZENT IG E l.-.l R H R - SCHEIN 
LIC H K EIT, D R SS SIE GE S UND-HEITLI 
CHEN ODER F INflNZIELL.EN SCHU IE 

RIG K EIT E N E NTG E GE NSEGEL N. G E B E N 
S IE D IE H O F F N U N G N IC FIT R U F P R S S E N 

SIE NUR RUF SICH RUF UND FUEHRE 

N EIN RUHIGES LEBEN. BIS IHRE P 
UNKTZAHL SINKT." 

S 0 G P R IN T , , " N O C H Fl E H R K L IE N T E N 

810 INPUT fl$ 

8 20 IF R $ — "N" TUEN STOP 

84-0 GOTO 1 

900 SRUE "LEBE®" 

901 RUN 
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Armada 


Dies ist ein sehr raffiniert ausgearbeitetes Seekriegs¬ 
spiel von Jim Archer. Es basiert auf dem bekannten Spiel 
„Schiffe versenken", wartet aber mit etlichen Erweite¬ 
rungen und Variationen auf, die es im Original-Spiel nicht 
gibt. Die Kriegsflotten bestehen hier aus sechs verschie¬ 
denen Schiffstypen: Sechs Schlachtschiffe, fünf Kreuzer, 
vier Torpedoboote, drei Flugzeugträger, zwei U-Boote 
und ein Zerstörer. Merke: Je weniger Schiffe in die 
Schlacht geworfen werden, desto höher der Punktgewinn 
beim Versenken eines Schiffes! 

Während der eine der beiden Spieler ein nützliches 
Buch liest oder sonstwie seine Augen diskret abwendet, 
gibt der andere die Positionen seiner Schiffe ein. Der 
Computer hat in diesem Spiel nur die Funktion eines 
Schiedsrichters. Es ist wichtig, die Positionen der einzel¬ 
nen Schiffe zu überprüfen: jedes Schiff muß nahe bei 
den anderen der gleichen Seite sein, mit anderen Wor¬ 
ten: die Schiffe der beiden Seiten müssen geschlossene 
Formationen bilden. 

Emern der beiden Spieler wird vom Computer das Recht 
zur Eröffnung des Feuers erteilt, und dann beschießen 
beide Gegner abwechselnd das Gebiet des anderen. 
Wer einen Treffer landet, darf noch eine Salve feuern. 
Jedes mit einem Schuß belegte Feld wird sofort weiß, 
damit Sie wissen, daß es sinnlose Vergeudung von Muni¬ 
tion und Zeit wäre, noch einmal darauf zu feuern. Wenn 
Sie es trotzdem nicht lassen können, gibt Ihnen der 
Computer den Hinweis SCHON VERSUCHT. 

Sollten Sie das Programm zerstören (was eigentlich 
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kaum möglich ist, weil der Computer unlautere Vor¬ 
schläge zurückweist), können Sie es mit GOTO 2500 
wieder aufbauen. 


1 0 D 11"1 h $ < 4- , 1 0 , i o) 

15 P R I NT hT 0,13; "HR r-1 R D R '' 

16 PAUSE 60 

£0 D IN O $ ( £ , 3 ) 

30 DIM S(S) 

35 PRINT 

40 PR INT '’ NRME DES 1 . SPIELER5 
(3 BUCHST . ) •?" 

47 INPUT 0$(1) 

43 PRINT G$(l) 

50 PRINT 1 ' NHNE DES £ .SPIELERS 

( 3 BUCHST . ) 7“ 


Fi Fi 

INPUT 

O $ ( 2 ’> 

5 7 

PR INT 

O $ (21 

6 0 

L.ET r-i 

= 0 

70 

LET T 


30 

L.ET U 

= i 

90 

LET U 

" 

95 

LET G 

--" ‘' 

9 7 

ERST 


100 

G O S U B 

9 0 0 

105 

51„ o Lj 


1 1 0 

LET H 

= 0 

120 

G Ü U ß 

1 100 

130 

F O R X 

~1 TO £ 

14 0 

LET S 

( X ') ~ 0 

155 

G ü S U B 

350 

160 

F” U R R 

=T TO 1 STEP -1 

£00 

FÜR u 

= 1 T O R 

£ 0 5 

LET H 

- H + 7 - R 

£ 0 7 

PR INT 

RT 21 ,O; R; ' : ";B$(R,4 

Q 3 

+u r l < 

B $ C R £ TO 3 ) J j ; 

2 0 9 

PRINT 

'' ! ‘ ; 

£ 10 

P R I NT 

RT 21,21; "NO. ";U; ”? " 

AT 

9 1 .. 9 3 ; 

• * ‘* f R T 2 1.2ö; 

220 

G O S LJ B 

£000 

*--• t--; 

G DT O 

17 00 
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230 LET H $ < X . I , d :• = B $ ( R , 4-) 

2 35 P R I NT RT £ * d . 5 + £ * I; B $ ( R , 4-) 

2 4-0 HEXT U 
270 NEXT R 
280 NEXT X 
300 LET U=3 
310 LET Ut = "l !l 
315 FAST 

3 2 0 G Ü S LJ B 9 0 0 
32 5 S L O LJ 

3 3 0 G O T O 7 0 0 

351 PRINT O* (X) ; " BITTE IHRE FL 
OTTENP05ITION" 

352 PAUSE 100 

355 FAST 

360 print o $ (x) " Kl 1=3 53 B Li 

S B IS B H" 

.•t. ^ er r-i r~i T K1 T - 


3 6 5 

PR INT 


3 7 0 

FÜR Z=1 

T O 10 

380 

IF Z=l© 

TUEN GOT O 10 0 0 

390 

PRINT " 

1 ' G $ ( Z '< 

4-00 

FOR Y=1 

T O 10 

4 10 

IF fl $ ( X , 

Y,Z)<>" " TUEN 

T tae 

( 2 *Y + 1J 

h $ (X Y , Z J 

4-20 

NEXT Y 


4 3© 

P R I NT 


4 4 0 

P R I NT 


4 50 

NEXT Z 


4 70 

5 L 0 U 


4 80 

RETURN 


500 

C L_ S 


5 10 

PR INT 


520 

PRINT 


530 

PRINT " 

eiBasaaiiaaii 



54-0 

FOR Z=1 

T O 10 

550 

F O R X = 3 

T O 4 

er cr ( r.r 

IF Z=10 

THEN GOTO 1020 

5 0 0 

PRINT " 

‘' ; G $ (Z) 

5 70 

FOR Y = 1 

T O 10 
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580 

PR INT 

h $ «: x , 

, z > .; 

p; P; CT 

NEXT ' 

V 


600 

hi EXT 

X 


605 

PR INT 



6 10 

NEXT 

z 


620 
6 3 0 
6 4-0 

(£ :i 
650 

PRINT- 

PRINT 

PRINT 

TRB 5; 

O $ « 1) ; T R B 2 2 O $ 

PRINT 



660 

PRINT 

TRB 4-.; 

"PUNKTE " S < 1) 

Th Ei ; 

2 1; "PUNKTE " 

s (2 :i 

6 6 5 

PRINT 

HT 19. 

, 5; "SCHIESSEN : " 

6 7 0 

RETURN 


7 00 

GO SU6 

500 


710 

LET K 

= I NT (RND*2+1> 

720 

L. ET M 

= 1 


740 

LET P 

= 3 - K 


7 45 

PR INT 

HT £ 1 . 

, 0 ; " 

7 50 

PRINT 

RT 19 

. O; O $ (K ) RT 19 1 

6 ' ‘ 1 

" RT 

19 15 ; 



7 70 

IE R $ ( P , I , U ) •; > 

" " THEN 

1500 


7 6 0 

PRINT RT 21,0; 

"URSSER" 

7 S 5 

LET fl $ ( P , I , ._n = 

' ’ ■ " 

7 6 6 

LET fl$ (P+2 . I , U 

;i =' 1 

"? 

PRINT RT U+2,3 

+ 14- •. P — i. 

790 

PRIJSE SO 


600 

LET K=P 


6 10 

GOTU 740 


900 

FOR X = U TO U + l 


9 10 

FOR Y-1 TO 10 


920 

FOR Z=1 TO 10 


9 3 0 

LET fl $ C X ,Y . Z) = 

U $ 

940 

NEXT Z 


950 

NEXT Y 


960 

NEXT X 


970 

RETURN 


1000 

PRINT " HSI" 

; 
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1010 GOTO 400 
10 2 0 P R IN T ’' lOfU'' ; 

10 30 G O T O 5 'I 7 0 

10 60 PRINT HT 21,0; "NICHT E RL RU B 

T 


1 0 7 0 

PHÜ 

5 E. 

50 



1090 

GOT 

3 2 

07 



1 1 0 0 

d i r-i 

B$ 

( F, 

ie 

) 

1 1 10 

LET 

B $ 

( 1 ) 

= ■ ■ 

110 ZE RST Ü ER ER" 

1120 

LET 

B$ 

(s ;> 

~ ‘ 1 

2 0 6 IJ - B O OT 1 ’ 

113 0 

LET 

B$ 

( 3 ) 

=; " 

3 15 P L U G Z E U GT R H E G 


ER" 

114- 0 L. ET B $ i 

1150 L ET B$i 

1160 LET B$i 

F 1 ‘ 


117 0 
1 2 0 0 

RETURN 

IP 1-1 = 1 TUEN 

G OT O 1 

300 

12 .10 

PRINT RT 21, 

O ; " U IE 

B ITT E 

12 2 © 
1300 

G OT O 2 0 0 0 
PRINT RT 21, 

" RT 

0 i U X E 

2 1 , 19.; 

B ITT E 

13 10 
13 20 

PAUSE 50 

P R I NT" RT 19 , 

15; " 

" .; RT 


0 ; " ; RT 19 , 

15 

13 30 G O T O 2 0 0 0 

14 5 0 PRINT RT 2 1,0; "5CH O N UERSUG 
HT" ; 


14 60 

IP Fi t< 

( P , I 


._ ! j 

< > " . " T F 

i E N P R IN 

T "-R 

U INEN 

IJ E B 

R 

IG 

‘ ‘ i 


14 70 

PRUSE 

50 





14 75 

PR INT 

H i 

2 

1 , 

0 ; 


14 8 0 

G OT O 

750 





1500 

I F R $ 

( P , I 

, 

yj ) 

="*" OR 

[■-1 e}ü y F~‘ ! 1 

J j 1 ‘ . 

" THE! 

M G Ü 

T 

Ü 

1450 


15 10 

L ET' R 

$ tp + 

£ 

. i 

, U j = Fi $ i F :: 

, i , u i 

1 . 5 1 . 5 

PR INT 

RT 

•J 

4 

, 3 + 1.4 * i. F 

i' 1 i + I; Fi 

$ i P , I 

. U j 






15 20 

L ET U 

= 1 





15 30 

IP BJ 

< U , 4 

j 

= H 

$ ( p , I , U i 

TUEN G 


4) ="4111 O Fi P E D O Ei Ü Ü T 1 • 

5 ) -- '' 5 © 7 K R E U Z E R ’ 1 

6 i = " 6 1 S C H L R C H T S C H 1F 
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ÜT O 

1560 


154-0 

LET U--U + 1 


1550 

G U T O 15 3 0 


156 0 

PRINT PT 21, 

0 ; B $ ( U . 4- TO 18.i 

;" massamr; 


15 70 

PRINT " SH “ 

; 7 _ y 

7 pr c-j 

PAUSE 120 


1550 

LET 8 (Kj =S ( K 

[\ -f- 7 - 

15 © 2 

LET H$(P.I,._ 

) =z" “ 

1553 

PRINT RT 17, 

11+ ( K — 1) +17 S ( K 


IF S(K)=H/£ 

T H E N G O T 0 16 0 0 

15 9 0 

G OT 0 7 4- 3 


1600 

Ü L S 


16 10 

PR INT 


16 2 0 

PRINT "GANZE 

FLOTTE ZERSTOE 

RT '' 



1630 

PR INT 


16 4.0 

LET U=S(K)-5 

l F' J 

1650 

PRINT O $ { K ) 

" SIEGT MIT " ; u 

;" PUNKTEN" 


16 6 © 

ST DP 


1700 

IF H $ ( X , I , J i 

< > " " OR I •: 1 O R 

I>10 ÜR J<1 GR J 

r.* ez. i-.s 

>10 THEN GOTO 1 

17 10 

LET 6 —0 


17 20 

LET C--I-1 


17 30 

LET E = • J -1 


174-0 

IF 1=1 THEN 

LET C=1 

1750 

IF .J = l THEN 

LET E = 1 

17 6 0 

LET D = 1 + 1 


17 70 

LET F=.J + 1 


17 80 

IF 1=10 TUEN 

L. ET D = 10 

17 90 

IF 0=10 THEN 

LET F = 10 

1600 

IF ft $ ( X , C . E > 

=.THEN GOTO 

1830 



18 10 

IF H $ « X , C . E > 

< > E $ i R , 4- j THE N 

G OT O 

10 6 0 


1820 

LET G = 1 


1830 

IF C ■; D THEN 

G OTO 19 2 0 

1840 

IF E •: F THEN 

GOTO I960 

1850 

IF U>1 AND G 

=0 THEN GOTO 10 
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60 

1860 GOTO £30 

1920 LET C=C+1 

10 30 G O T O 1S 0 0 

I960 LET E=E+1 

1970 LET 0=1-1 

1980 IF 1=1 TUEN LET 0=1 

19 90 GOTO 180 0 

£0 00 INPUT F $ 

£0 10 PRINT F $ 

£015 IF LEN F $ <£ OR LEN F $ > 3 THE 

N GOTO 1200 

£017 IF CODE F $ ( 1) <38 OR CODE F$ 
( 1. ,'i > 4- 7 O R C Ci D E F $ ( £ ) < £ 9 O R C O D E 

F $ C £ .1 > 3 7 THE N G OT O 1 £ 0 0 

£0£0 LET l=CODE F$(l»-37 
£030 IF LEN F $ = 3 THEN GOTO £060 

£ 0 4- O L. E T .J = U R L.. F $ ( £ ) 

£050 RETURN 

£ 0 6 0 IF F $ ( 3 j •;>"©" THE N G OT O 1 £ 0 
0 

£065 LET U=URL F$(£ TO 3) 

£070 GOTO £050 
£500 G O 8U 6 5 0 0 

£510 G O T O 7 4- 0 
3 0 00 8R U E * ’ U - B O Oil 1 ’ 

3010 RUN 
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Golf für zwei 

Jim Archer hat dieses Programm ursprünglich als ein¬ 
faches Golfspiel entworfen, aber dann zu einem Spiel für 
zwei erweitert, den Golfplatz mit allerhand Raffinessen 
ausgebaut und sogar die Rolle von Wind-Richtung und 
-Geschwindigkeit beim Golfen berücksichtigt. Ein Zu¬ 
fallsfaktor von +15 Prozent sorgt dafür, daß das Spiel 
menschlich bleibt. 

Der ZX 81 entscheidet, wer den ersten Schlag führen darf, 
dann schlagen beide Spieler abwechselnd mit ange¬ 
messener Kraft. Die Kraft, mit der ein Schlag ausgeführt 
wird, hängt natürlich von der Entfernung zum Loch ab, 
das getroffen werden soll. Diese Distanz wird in Yards 
gemessen. Auf dem Hauptfeld entspricht 1 Quadrat 10 
Yards, auf der Grünfläche entspricht 1 Quadrat 1 Yard. 
Es kann ein Winkel zwischen—180 Grad und+180 Grad 
gewählt werden. Die Position des Balles nach ausgeführ¬ 
tem Schlag wird unter Berücksichtigung des Wind¬ 
effekts und des Zufallsfaktors errechnet und als Initial 
des Spielers auf dem nächstgelegenen Quadrat ausge¬ 
druckt. 

Landet ein Spieler auf einem der Bunker, so hat er eine 
3:4-Chance, die Situation zu klären. Landet der Ball auf 
der Grünfläche, so wird dort ein beliebiges Quadrat als 
neue Position bestimmt. Wenn Sie einen Treffer landen, 
wird Ihnen eindrucksvoll vorgeführt, wie der Ball in das 
Loch fällt. Am Ende des 8-Loch-Kurses wird der Spieler 
bewertet, was sein Selbstbewußtsein wahrscheinlich 
derart stärkt, daß er sich sofort in ein neues Spiel stürzt. 
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15 

20 

D I r-1 N $ < £ 
PRINT '■ 

* * *Hawa m 

L51~#J * * 




2 1 

PR INT 



I—' 1 ' 

PRINT 

' ' 

EIN S LOCH S 

PIEL " 




i=I 3 

PR INT 



24- 

PR INT 

• • N H r-1 E D E S 1 . S FIELE R S 

(3 Ir 

UCHST 

„ ) 

‘ 

2 *3 

INPUT 

N $ ( 1) 

2 0 

P R I NT 



2 8 

PR INT 

N $ < 1 1 

30 

P R I NT 

'' N H r-1 E D E S 2 . S P IE L E R 3 

(3 F: 

UCHST 


' 

3 1 

PR INT 



3 2 

IN PUT 

N $ ( 2 ) 


P R I NT 

N $ ( 2 ') 

38 m 

PR INT 


, ■' I.-J IN D G E S C H U IN D IG K E I 

"1 

•4-0 

il-IPUT 

u 


50 

PR INT 

y 


60 

IF U < 

0 " 

r H E N G OT O 10 0 0 

7 0 

IF U > 

60 

T H E N G O T 0 10 2 5 

czr 

L.ET U 1 = P I / 1S 0 * U 

80 

PR INT 

"WINDRICHTUNG "? " 

90 

INPUT 

E$ 

9 5 

P R I NT 

E$ 

1 0 0 

LET D 

$ e: $ 

1 10 

L ET U 

= --1 

120 

G O 5 U B 

1100 

130 

IF U -■ 

- 1 

TUEN GOSUB 1040 

14 0 

IF U = 

- 1 

THEN GOTO 80 

14 1 

D IM C 

•: 2 


14 2 

D IM O 

i; 


14.3 

DI 1-1 T 

( 2 


144 

d i r-i i: 

CZT 


14 7 

d i r-i u 

( 2 

1 

14 6 

d i r-i b 

( 2 


15 0 

LET U 

== u 

+ 180 

160 

IF U > 

= 3 

80 THEN LET U=U-360 

17 0 

RfiND 



180 

GOSUB 

i 

2 0 0 


80 
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LET M--0 
LET C(lj=1 
LET C ( 2 j = 1 
D I M E ( £ ) 

LET M=N+1 
DIM H(2) 

LET H =0 

LET H --UHL. R $ ( 5 * ( N - 1) + 3 TO 5 
1) + Ei i 

L ET D $ = fl * ( 5 * ( N - 1 > + 1 T O 5 * ( N 
£ i 

IF D $ ( £ ) =.T H E N L ET D $ = D $ 

GOSUB 1300 

PRINT "0933 " N" \SSM0M F 
" ; RT 0 ,26 ; fl ; " r-1" 

GOSUB 1870 
DIM G*(20.32) 

GOSUB 1100 
LET PO = U*4/4.5 
LET I=UflL E$ iPO + 1 TO PO + 

L. E T U = U fl L. E $ ( P O + 3 T O P O + 

LET M=INT (RND*2)+1 
LET G $(I , U ) =N $ ( M . 1) 

PR INT fl’T I . U ; N $ ( M , 1) 

L ET U 1 = U * P I 18 0 
LEI' X = I - INT ( fl / 10 *CO5 U 1 + . 5 

L ET Y = U + I NT ( fl X 10 * 8 IN U 1 + . 5 

LET G $ (X ,Y) ="E1" 

PRINT AT X.Y;"B" 

F O R R = X - 1 T O X + 1 

FÜR S=Y — 1 TO Y + l 

IF NOT (R = X AND 8=Y) THEN G 

1400 

NEXT 5 

NEXT R 

LET F'=3-t-1 

LET 1(1)=1 

LET I(2)=1 
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4-08 

LET U 

< 11 

( 











4-09 

LET ü 

(S ') 

=u 











4 10 

GOSUB 

17 

00 











4 1 1 

I F C ( 

M ) > 

1 

TH 

EN 


P R I NT 


RT 


0 , 

irr 

3 ; '' 5 C 

H L H G 

" ; C 

< M 

:» ; 

' 1 

1 ' 








4 12 

GOSUB 

4 1 

1= 











4 14 

G O T O 

5 10 












4 15 

PR INT 

HT 

2 

1 , 

0 ; 

N 

$ C M 

j ; 

1 ' 

s 

c 

HL 

H 

GSTRERKE ? 






" ; AT 

2 

1 , 

2 

8 


420 

INPUT 

K 












4 30 

PR INT 

K 












44© 

PAUSE 

5© 












4 50 

PRINT 

HT 

2 

1 .. 

0 .; 

' 1 

M IT 

E 

i 

NE 

M 

I.J 

n 

NKEL 

UON 




* ' 

i 

AT 

21 


2 1 

; 



4 60 

IN PUT 

T 












4 70 

PR INT 

T 

* • 

Lr Ri 

AD 

1 ' 








4 75 

LET T 

( m ) 

=T 

i M 

:• + 

1 








4 76 

P R I NT 

AT 

M 

+ 1 

.i *z» 

0 

; T ( 

Ml 






4 80 

IF E < 

m:i = 

1 

T hl 

EN 


G O S 

UB 


18 


0 


4 90 

LET K 

= K + 

. 4 

-Hr ( 

RN 

D 

— Fi 


K 





500 

LET T 

=T + 

30 

•i*r ( 

RND 

_ F 

;i 






5 05 

RETUR 

N 












510 

L ET O 

= . 004 

•HrK 

* u 









c; p 

IF E C 

m = 

1 

TH 

EN 


GOT 

o 

F 





5 20 

PRINT 

Hl 

I 

(M 

) , 


( M ) 

; '' 


11 




er -~i er 

LET G 

$ (i 

(M 

;i , 

,_l 1] 

M 

j ) = 

11 

' 1 





5 2 8 

I F C ( 

p) = 

1 

TH 

EN 


PR I 

NT 


RT 


I , 

u 

; N $ ( p 

1 , 11 













550 

LET T 

1 =T 

*P 

I 

18 

0 








56'0 

LET I 

( r-i i 

= I 

«M 

'! — 

I 

NT 

( i; 

K 

* c 

o 

5 

T 

1 + Q * C 

O S U 1 

1 / 1 

0 ) 











57 0 

LEI" U 

(M ) 

= .J 

(M 

1 

I NT 

( i. 

K 

+ !~i 

IN 

T 

1 + W -Z' 

IN Ul 

:i / i 

0 1 











p Fi 

IF I < 

MJ = 

I ( 

Pi 

H 

ND U 

(M 

:» 

= .J 

( 

pi 


TH EN 

LET U 

< M 1 

= .J 

f r-i 

i + 

1 








580 

G O S U B 

14 

30 











er p ; er 

IF G $ 

( I ( 

M i 

, ,j 

U-1 

j 

:« = " 

ü" 


TH 

E 

N 

G 

O 5 U B 

1800 













5 9 0 

PRINT 

HT 

I 

( M 

j , 

,J 

f M 1 

; n 

$ 

i M 

, 

11 


5 9 5 

LET G 

$ >: i 

(M 

) , 

ü ( 

M 

l l 

N $ 

t 

M , 

1 

;i 


605 

LET C 

( M 1 

=c 

U-1 

:« + 

1 








6 10 

IF AB 

( 


I ( 

Ml 

1 

'*• ^ 

RN 

D 

H 

B 

-* 

( 
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V -■ J (r-13 3 < £ THEN GOSUB 2200 

611 IF C iP 3 >© THE N G O SU B 1260 

612 IF H 043 =1 TUEN GOTO 620 

614 GOTO 4.11 

6 20 C L_ 5 

6 3 0 P PINT "LOCH " ; H ; " : Fl U F D E M 

GRIJEN: " 

635 FHST 

6 36 G O S U Ei 1S 7' 0 

63 7 IF H = 1 TUEN GOTO £4-96 

6 4- O D I f-1 H $ ( 9,9 3 

645 L. ET H = 1 

65© FOR R=1 TO 9 

6 60 F O R 6 = 1 T O 9 

6 7 5 L ET H $ < R ,53 = ‘' M '' 

650 IF R =5 AND 5=5 T HEN LET H $ i 
R,53= "0" 

6* 9 0 P R! IN r Fl I Ri 4' 19,5 4 9 I H $ t. R! , I“, .t 
700 NEXT s 

710 NEXT R 

7 4 £ SLOW 

7 4- 5 L ET' H $ ( I ( M 3 , J ( M 3 3 = N $ ( M , 13 
750 PRINT HT I ( M 3 +£ , ü ( M 3 4-9; N$ 04 
, 13 

755 IF H «P 3 =1 AND C (P 3 >0 TUEN P 

R 1 14 T Fl I I i, F’J +cl i O i. R’ .i 4- 9 l N $ 1 P , 1 3 
7 60 IF 104 3=5 AND U C M 3 = 5 THEN G 
OT O 1 El 9 0 

7 65 PRINT AT 0 £4.; "SCHLAG " C (H 
3 

770 GOSUB 415 

,-'80 PRINT AT I 0-13 +£ , ü 043 49; "P" 

7 90 LET HeMIO-13 , ,J 043 3 ="P" 

800 LET T1=T*P1/180 


5 10 

L ET 

I ( M 3 = 

i; c r-i 3 -1 nt 

1 K 4 C 

O 8 T 1 

-1- a s:» 






8 £ 0 

LET 

ü 04 3 = 

J < M3 4 INT 

I K 4 s 

IN T 1 

+ n 5 ;i 






8 30 

0 

IF H 

04 3 = H 

( P3 THEN 

G O S U 

B 18 6 

8 4 0 

1 9 U 5 U ! 

B 148i 

0 



8 45 

IF C 

I p 3 > O 

AND I 04 3 

= i ( p 

3 AND 
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u <: m ) 

--■J i 

P 

j THE 

N 

LE 

T 


«r-i :• = 

U ( M 

) 

+ 

1 

850 

P R I 

N 

T Hl 


I 

(11 :* 

+ 

£ i 

•J « M i 

+ 9 

N 

$ 

( M 

1) 














S60 
i T n 

IF 

1 l;- -1 } 

I 

(M) = 

p; 


AND 


•j «: 

H .i =5 

T H 

E 

N 

G 

S70 

L LU «£_* V.. 1 

LET 


H $ ( I 

i 

r-i 

J , U 

( 

M ) 

:■ =n$ 

( M , 

1 

J 


'i 

PRI 

N 

T OT 


i 

< M > 

+ 

s • 

U ( f-1) 

+ 9 .■ 

N 

$ 

(r-i 

9 0 0 

LET 


c ( m ) 

~ 

c 

( M ) 

+ 

1 






9 10 

IF 

C 

(P) = 

0 


THE 

w 

G 

u r u 

7 6 5 




920 

G O S 

IJ 

B 12 

s 

0 









9 5 0 

IF 

H 

(M) = 

1 


THE 

w 

G 

OT O 

7 6 5 





9 S G G O T Ü 19 0 0 

1010 PRINT "SEIEN SIE ETWAS MUTI 
GER" 

10 £ 0 G O T O 3 0 

1©£5 PRINT "ZU STORKER WIND- 

SP IEL..HUSPALL" 


1030 

STOP 


1 0 -i 0 

PRINT "UIE 

BITTE ?" 

1050 

RETURN 


1 100 

IF 

D$--"N" 

THEN LET U=0 

1110 

IF 

D$ = " NO " 

TUEN LET U =45 

1 120 

IF 

D*="ü" 

THEN LET U=90 

1 130 

IF 

Di=“SO" 

TUEN LET U = 135 

114.0 

IF 

D $ " S “ 

TUEN L. ET U = 180 

1150 

IF 

D$="SU" 

TUEN LET U=225 

1160 

IF 

D*="W" 

TUEN LET U=270 

1170 

IF 

D$="NW" 

TUEN LET U =315 

1180 

RETURN 


1200 

LET 

A$="NW 

2 4- 0 LJ £ S 0 N 17 5 S O 2 3 

0 N IS 

0 S C 

250NO22 

0O 275" 

12 10 

L ET 

E$="20 

15200311010103011 

5012 S 

113 

0 i— 1 . 0 cz. 'Z' " 


1 ;=! £ 0 

LET 

B $ = "04.13052 111251627 16 1 

4-13 0 10 90 6 0606" 


12 50 

RETURN 


12 6 0 

LET 

r-i =p 


12 70 

LET 

P =s 3 ~ H 


1280 

RETURN 


1300 

IF 

DJ="N" 

T HEN LET F $ = "NORD 
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1310 IF D$="NO" THEN LET F$="NOR 
N-OST" 


13 £ 0 

IF 

D $ = " O 

1 * 

THEN LET F $ = “OST" 

13 30 

IF 

D $ = " S 

Ü 

" THEN LET F$="SUE 

D-OST" 




13 3 5 

IF 

D $ = " S 

" 

TH EN LET FJ = "SU E D 

1340 

IF 

D$ = "S 

Li 

" THEN LET F$="SUE 

D-I.JES 

T ■ ■ 




1350 

IF 

D $ = ‘ ‘ U 


THEN LET F$="UE5T 

1360 

IF 

D $ = " Nl-.l'‘ THEN LET F$ = "NOR 

D-UES 

,'T " 




1370 

RET 

IJRN 



14 00 

LET 

G $ ( R 

, 

•5 ) = " ;i$:'' 

14 10 

PRINT RT 


R , s .; 

14 £0 

RETURN 



14 30 

IF 

I (M) < 

i. 

THEN LET I(M)=1 

1440 

IF 

i (M) > 

1—' 

0 THEN LET I (M) =20 

1450 

IF 

u ( m i < 

i 

THEN LET U(M)=1 

1460 

IF 

U ( M ) > 

3 

1 THEN LET J(M ) =31 

1470 

RETURN 



1480 

IF 

i ( r-1 i < 

i 

THEN LET I ( M ) =1 

14 90 

IF 

i: (r-1) > 

9 

THEN LET I ( M ) =9 

1500 

IF 

U ( M ) •; 

i 

THEN LET U ( M ) =1 

15 10 

IF 

u ( r -1 ) > 

9 

THEN LET U ( M ) =9 

1520 

RETURN 



1590 

LET 

c ( r-i ) 

=: 

c ( r-i ) - 1 

1600 

PRINT RT 


7' , 1 4- ; 1 ' * '' 

16 01 

LET 

G $ ( X 

, 

Y) =n$ (r-i , i) 

16 2; O 

PRINT RT 


21,0; " ia E'i 

NGELOCHT 

El, 1 ® 


'' 

1625 

PRU 

SE 14 0 


16 3 0 

LET 

c ( r-i ) 

= 

0 

1635 

PRINT RT 


7 ,14; ■■H" 

1640 

IF 

C ( P ) > 

0 

THEN GOTO 2400 


16 60 IF N <8 THEN GOTO £00 
1665 FÜR M=1 TO £ 

1670 CLS 

1675 LET TOT =T ( N) 

1680 PRINT flT 7.10; N $ (Mi ; RT 9,6; 


"■fr*********".; RT 10,6.; "GESAMT " ; T 
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<M) ; RT 11 ,6 ; "****■***•*■**" ; hT IS . 0 

'HUI' " ; 

1681 IF TOT < =20 THEM PRINT "R - 
SEHR GUT" 

1682 IF TOT>20 AND TOT<=25 TUEN 
PRINT "B - GUT" 

1683 IF TOT >4.0 THEN PRINT "F - gj 

mso" 

1685 IF TOT>25 RND TOT<=30 THEN 
PRINT "C - DURCHSCHNITT" 

1686 IF TOT>30 RND TOT<=35 THEN 
PRINT “D - SCHLAPP" 

1687 IF TOT >35 RND TOT <=4.0 THEN 
PRINT "E - UOHL R N FRENGER" 


.'1 6 0 0 

STOP 


10 » 3 9 

NEXT M 


16 9 0 

STOP 


17 00 

LET fl = URL B $ (PO + 1 TO PO+2! 

17 10 

L E T B = U R L B $ ( P O + 3 T 

' 0 P O + 4 ) 

1 7 ’CZ. 0 

IF D$="N" OR D$="S" 

THEN GO 

TO 17 

’SO 


1730 

F O R D = R T O R + 2 


1740 

LET G $ ( D , B ) = " 11'‘ 


17 5 0 

PRINT RT D,B;"H" 


1760 

NEXT' D 


17 7 0 

RETURN 


1780 

LET G$CR.B TO B+2) = 

■ • jdpn ’ 1 

17 90 

PRINT RT R B ; " iüüü 


17 95 

RETURN 


1800 

PRINT RT 21,0;" 

1503 ir -1 

BUNK 

.er am 


1805 

PAUSE 90 


18 IO 

LET B(M)=1 


18 20 

RETURN 


1 0 3 0 

IF R N D < . 2 5 T H E N R E T U R N 

184 0 

LET B (M) =0 


1850 

RETURN 


1870 

P R I NT RT 1,2 7 ; '' [ef=B ' 1 

RT 2 25 

; N $ < 1 

. j ; " : " T ( 1) ; RT 3,26 ; 

N $ ( 2 ) ; " : 

" T « 2 

:) 


1 Ö 0 0 

RETURN 


19 0 0 

FAST 
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Golf für zwei 

1905 

C L S 



19 0 & 

PRINT "HSiaa 


f$ 




190? 

GOSUB 1870 



1910 

F O R R = X — 1 T O X 

+1 


192© 

FÜR 6 =Y — 1 TO Y 

+ 1 


1930 

PRINT AT r, s;" 

H * * 


194.0 

NEXT S 



1950 

NEXT R 



1952 

PRINT RT X , Y " 13 " 


1955 

PRINT RT I(M), 

u (f-i ) 

N $ (r-i, i) 

I960 

S L„ O U 



1970 

GOTO 410 



2000 

DIN HC2) 



2010 

PRINT H(1),H(2 

j 


2020 

LET H(1)=1 



2030 

PRINT HCl) . H(2 

j 


2200 

LET I C M) =4+3* ( 

I i. M ) - 

X) +INT ( 

RMD * 10 3.34) 



22 10 

LET U CM) =4+3* < 

...1 < f- 1 ) - 

Y ) +INT ( 

RND+10/3.34) 



er! i=! Irl L3 

LET HO-1)=l 



ir! 2 2 5 

IF H(P)=1 AND 

i c r-1) = 

I(P) AND 

J ( M ) 

=J(P) THEN LET 

■J < f-i) 

= U 0-1) +1 

2230 

RETURN 



2400 

G O 6IJ B 1260 



24 10 

IF H (M) =© THEN 

GOTO 

1900 

2420 

G OT O 7 6 0 



2496 

CL5 



£4-9 7 

print "H3HH 

N ; " : 





— 1 4 9 LJ* 

GOSUB 1870 



2505 

FAST 



25 10 

Für R=1 TO 9 



25 20 

FOR 8=1 TO 9 



2530 

IF R =5 AND 8=5 

THEN 

LET H $ ( 

R . 3 j = 

"E" 



2540 

PRINT AT R+2,S 

+ 9 H $ 

i. R , 8 ) 

2550 

NEXT 8 



2560 

NEXT R 



2570 

G OT O 74 2 



9000 

SAUE "GOLS" 



9010 

RUN 
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Der ZX 81-Berater 

Dieses hervorragende Programm von Chris Callender ist 
die ideale Lebenshilfe für jedermann, der sich in heiklen 
Situationen nicht entscheiden kann. Es führt in vielen 
Fällen zu einer ausgeglichenen Beurteilung der Lage 
und kann deshalb wirklich sehr nützlich werden. Bei 
dem nachstehend dargestellten Beispiel geht es um die 
Anschaffung eines Haustieres; dieses Beispiel soll Ihnen 
klarmachen, wie Sie Ihre eigenen Problemfälle per ZX 81 
entscheidungsreif machen können. 

Anzahl der Möglichkeiten? 3 
Anzahl der wichtigen Faktoren? 3 

1. Möglichkeit? Schwein 

2. Möglichkeit? Schwan 

3. Möglichkeit? Hamster 
Berater II 

1. Faktor? Kosten 

2. Faktor? Zuneigung 

3. Faktor? Farbe 
Berater II 

Wie veranschlagen Sie Kosten für ein Schwein? 55 etc. 

Danke... Hier ist meine Meinung 

Schwein 326 

Schwan 293 

Hamster 162 
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Der ZX 81 -Berater 

30 

GOSUB 3000 


4-0 

PRINT "ZAHL DER 

HOBGLICHKEI 

TEN : 

'' ; 


50 

G OS U E 90 0 0 


60 

LET n - UHL. B$ 


70 

PRINT "ZAHL DER 

LUCHT IGEN F 

AKTOREN: "; 


8 0 

i 3 O S U B 900 0 


90 

LET F=UhL B $ 


100 

DIt-1 O $ ( O , 3 £ > 


1 10 

DIM F*<F,3£) 


1 S 0 

C L. S 


13 0 

G O S U B 3 0 0 0 


14-0 

F O R R = 1 T O O 


14-5 

IF PEEK 164-4-£ <4- 

THEN SCROLL 

150 

PRINT fl ;" , HOEG 

LICHKEIT" 

155 

IF PEEK 16 4-4-£<4. 

THEN SCROLL 

16 0 

G O 8 U B 9 0 0 0 


1 .7 0 

LET 0$(fl}=B$ 


18 0 

NEXT fl 


190 

CLS 


£00 

GOSUB 3000 


£ 10 

F O R fl = 1 T O F 


££0 

IF PEEK 16442<4 

THEN SCROLL 

£30 

PRINT fl;". FAKT 

OR ?" 

£4-0 

IF PEEK. 1644-2 < 4 

THEN SCROLL 

£50 

G O S U B 9 0 0 0 


c- er 

LET F$(H)=B$ 


£ 6 0 

NEXT fl 


£ 7 0 

d i r-i r-i ( o . f :i 


er, 

CLS 


7* 7 

GOSUB 3000 


2 8 0 

F O R fl = 1 T O O 


£ 9 0 

FOR B--1 TG F 


2 9 5 

CLS 


2 9 7 

GOSUB 8000 


300 

PRINT "LUE HOCH 

SCHRETZEN S 

IE " 
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301 PRINT F$(B) 

310 PRINT "FUER " ; O $ [RI 
320 G O SU B 9000 
3 30 LET M (PI . B ) -URL B$ 

34-0 NEXT B 
350 NEXT R 
360 CLS 

3 70 G O SIJ B 6 000 

3 S 0 P RINT "DR N KE.HIER IST M 

EINE MEINUNG" 

390 FÜR R = 1 TO O 
4-00 LET C=0 
4-10 FÜR B = 1 TO F 
4-20 LET C=C+M (fl . B) 

4-30 NEXT B 

4-4-0 PRINT OS (R) ; C 

450 NEXT R 

460 PRINT "NOCH EIN DURCHGANG ? 

4 70 G O S U 0 9000 
460 CLS 

490 IF B$(i:i="U" THEN RUN 


500 

STOP 


0000 

PRINT TAB 5; " 

BERATER II 

0010 

PRINT TAB 5; 


00 20 

RETURN 


90 10 

LET ß$ = "" 


902O 

PAUSE 4 E 4 


9022 

LET fl $ = INKEY $ 


9025 

60 

IF fl$=CHR$ IIS 

THEN GOTO 90 

9027 

IF INKEY$=CHRS 

115 THEN LET 

fl$ = ' 

i i i 


9030 

PRINT R1; 


9O40 

LET B$=B$+A$ 


905O 

G OT O 9020 


90 6 0 

PRINT 


90 70 

RETURN 


9100 

SAUE "BERATE®" 


9200 

RUN 
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Audio Morse Test 


Audio Morse Test 

Dieses Programm von Chris Callender wählt sich ein 
Wort und spielt es in Morse-Code durch den Lautspre¬ 
cher Ihres Fernsehers. Die entsprechenden Geräusche 
werden über Maschinencode erzeugt. 

Das erste Programm baut den Maschinencode in einem 
REM-Statement in Zeile 10 auf. Wenn das erste Programm 
gelaufen ist, drücken Sie LIST; Sie werden nun die Zei¬ 
chen sehen, nachdem der REM geändert wurde. Wenn 
Sie diese Methode in ihren eigenen Programmen ver¬ 
wenden wollen, geben Sie das erste Programm ein und 
löschen dann die Zeilen 20 bis 50. Zur Erzeugung des 
Tons geben Sie folgendes ein: 

POKE 16523, duration 
LET L USR 16514 

Um zu dem Morse-Test zu gelangen, geben Sie das 
zweite Programm ein. Wenn Sie statt der 30 in Zeile 390 
die Zahl der Worte eingeben, die Sie benutzen wollen, 
können Sie nach Zeile 1350 noch mehr Worte einfügen. 
Der Maschinencode ist in Zeile 10 gespeichert. Hier ein 
Beispiel für das Disassembling: 

LDA,00 

EXX 

CALL 0320 

EXX 

INCA 

CP duration 

JPnz,4084 

RET 
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10 

r e m 

Y 

|LN 4 ""mu RE 

RND" 

' H N 



20 

D IM 

M$ 

( 3 6 , s:« 

30 

L ET 

M $ 

( 1 ! = "-" 

40 

L. ET 

hi 

( 2 ) — ‘ 1 .-— 11 

50 

LET 

Mt 

i: 3) = * ■ « ,-■ • 

60 

LET 

M$ 

(4) =■' . , . - 

70 

LET 

M$ 

(FM = " . . . . — " 

8 0 

L ET 

M $ 

( 6 ) = ‘' „ , B , . • • 

90 

LET 

M$ 

i; 7 j = '' - „ . „ „ 11 

100 

LET 

M $ 

( © ;i = “ — . „ „ ■ ■ 

1 10 

L ET 

M$ 

i; 9 ) = ' 1 -. . ’ : 

120 

LET 

M$ 

( 10.1 ="-. 

130 

LET 

M $ 

( 11 ) 

140 

LET 

M$ 

i. 12 ) . . . " 

150 

L ET 

M$ 

(13)“ 

16 0 

LET 

M $ 

i. 14) " 

170 

L ET 

M $ 

(IS) -" . ' ; 

:L 8 0 

LET 

M$ 

(16) = ‘' . . - . " 

190 

L. ET 

M $ 

C 17 j = " .- . " 

2 0 0 

LET 

M$ 

(18) =" . . , . " 

2 10 

[_ ET 

M $ 

(19) =" . , " 

2 20 

L ET 

Mt 

( 20 ) =" . -" 

2 3 0 

LET 

M $ 

( 2 1 ) = " - . - '' 

240 

LET 

Mt 

( 22 ) ~ ' ' i, — » a 

250 

LET 

M $ 

(’i!“! 3 ) ~ 11 - 

2 6 0 

LET 

Mt 

( s 4 ) 

270 

LET 

M $ 

( 25) = ''-' ’ 

2 8 0 

LET 

M $ 

(26) — *' B — — . ’' 

2 9 0 

LET 

Mi 

( 2 ) — . c “■ 

3 00 

LET 

M $ 

( 2 8 ) ~ ■ — , 

3 10 

LET 

M $ 

( 22 ) =" « « n ' 1 

32.0 

LET 

M $ 

(30)=”-" 

3 3 0 

LET 

M $ 

(31) = " . . - " 

3 4- 0 

LET 

M $ 

( 3 2 ) 1: ■ . „ - ‘' 

350 

LET 

M $ 

( 3 3 ) ~ '' .- ' ’ 

3 6 0 

LET 

M £ 

(34) =" - . . 

3 70 

L ET 

Mt 

( 3 5 ) - " 

3 8 0 

LET 

Mt 

(36) = ‘ 1 - e u 

390 

LET 

N = 

INT (RND*30 

4 0 0 

G ü 8 

JB 

7 4 0 + N * 2 0 

4 10 

FÜR 

M = 

1 T O L. E N H $ 
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Audio Morse Test 


420 

LET C — 

CODE A $ ( M :i -27 

4 30 

F O R I = 

1 T O 5 

4 40 

IF M $ t 

C .. I) =" . " THEN POKE 16 

523 

10 


4 50 

IF M $ < 

0 , 1 !="-" TH EN PO KE 16 

52 3 

4 0 


4 6 0 

i7i 

I h M $ ( 

C,I)= ” " THEN GOTO 51 

470 

L ET L. = 

USR 16514 

4- 8 0 

F U R A - 

1 TO 10 

4 90 

NEXT A 


500 

NEXT I 


5 10 

F O R A = 

1 TO 50 

520 

NEXT A 


5 30 

NEXT f-1 


5 4 0 

PR XNT 

"UIE HEISST DAS LJ ORT 

5 50 

INPUT 

B $ 

5 60 

IF B$ = 

A $ T H E. N G OT O 6 S 0 

570 

PR INT 

'' F A L S C H '' 

5 80 

PRINT 

‘' N O C H EIN M A L UO R S FIEL 

EN ( 

J/N.1 •?" 


5 9 0 

PRINT 

"UM DIE LOESUNG ZU ER 

FAHREN 

DRUECKEN SIE DIE [ä T 

ASTE 

' * 


6 0 0 

INPUT 

Bt 

6 10 

CLS 


6 20 

IF B $ - 

"N" THEN GOTO 540 

6 30 

IF B$ = 

"U" THEN GOTO 410 

640 

IF B$ = 

"F" THEN PRINT A$ 

6 5 0 

IF B $ = 

"F" THEN STOP 

6 6 0 

PR INT 

' 1 F AL..S C HE AN T UORT ..... 

670 

G OT O 5 

6 © 

6 80 

C L- S 


6 90 

P R I NT 

AT 10,8; "RICHTIG. . . . . 

7 00 

PAUSE 

50 

7 10 

El" 

PR INT 

AT 1.0 ,8 " laEBESElBBWMI 

7 20 

PAUSE 

5 0 

730 

GOTO 6 

30 
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740 LET R$="50S" 

745 RETURN 

760 LET H$="5INCLfiIR" 

770 RETURN 
780 LET 

790 RE I URN 

800 LET ft $ = " COf-1 PIJTER" 

810 RETURN 

820 LET H$="FREUND" 

830 RETURN 

840 LET ft*="FEIND" 

850 RETURN 

860 LET ft $ = "HfiLLO" 

870 RETURN 

880 LET ft$="GEHIRN" 

890 RETURN 

900 LET fi$="TIER" 

910 RETURN 

920 LET ft $ = "R8232" 

930 RETURN 

94© LET flt="CHRIS" 

950 RETURN 

960 LET ft$="MORSE" 

970 RETURN 

■=160 LET ft$ = "SEX" 

99© RETURN 
1000 LET ft$="HORROR" 

1010 RETURN 

1020 LET ft$="MICRO" 

1030 RETURN 

1040 LET ft$="PRINTER" 

1050 RETURN 

1060 LET ft $ = "REGENBOGEN" 

1070 RETURN 

1080 LET ft$="REICHTUM" 

1090 RETURN 

1100 LET ft $ -"ZX99" 

1110 RETURN 

1120 LET ft $ = "CftSSETTE" 

1130 RETURN 

1140 LET ft $ = ‘' 16KRHM '‘ 

1150 RETURN 
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Audio Morse Test 


1160 

LET A $ 

1170 

RETURN 

1180 

LET A $ 

1190 

RETURN 

12 00 

LET A$ 

12 10 

RETURN 

12 20 

LET A$ 

1230 

RETURN 

12 4 0 

L ET A $ 

1250 

RETURN 

1260 

LET A $ 

12 70. 

RETURN 

1 £' 8 Ü 

LET A $ 

12 90 

RETURN 

1300 

LET A$ 

13 10 

RETURN 

1320 

L ET A $ 

13 30 

RETURN 

13 40 

LET A $ 

1350 

RET IJRN 

9 0 0 0 

SAUE " 

9010 

RUN 


"GLAS" 

"AUTO" 

"HILFE" 

"FUELLER" 

"KOEMIG" 

"DAME" 

"RADIO" 

"TUER" 

"SCHL LI ESSEL 
"GUT " 

ORSi" 
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Der ZX 81-Charmeur 

Wenn Sie die ganze Nacht vergeblich an einem Pro¬ 
gramm gearbeitet haben, Ihre Augen schmerzen, Ihr 
Kühlschrank leer und Ihre Freundin abgehauen ist, dann 
können Sie sich nur noch mit diesem wunderbaren 1K- 
Programm von Dilwyn Jones wieder aufbauen. Sie brau¬ 
chen nur eine beliebige Taste zu drücken, und der 
Computer verwöhnt Sie mit einer verbalen Streichelein¬ 
heit. Das Programm läßt sich natürlich auch benutzen, 
um Beleidigungen (siehe nächstes Programm), Kose¬ 
worte oder klangvolle Figuren-Namen für Ihr nächstes 
Abenteuer-Programm zu kreieren. Die Graphik-Ele¬ 
mente in B$ kriegen Sie durch GRAPHICS Shift 1, Shift 5, 
Shift D und die letzte Graphik durch Shift INKEY$. Die 
Graphiken in D$ kommen von Shift 1 und Shift E. 

Alle in diesem Programm benutzten Worte werden in 
den beiden Strings A$ und C$ verankert. Die Strings B$ 
und D$ beinhalten Tips, deren CODE dort steht, wo 
jedes Wort in A$ beziehungsweise C$ beginnt. A ist die 
Variable, die festlegt, welches Wort aus A$ genommen 
wird. Entsprechend ist C die Variable für die Auswahl 
der Worte aus C$. Die Zeüe 80 zieht das Display sauber 
scrollend nach oben, sodaß j edes Wort unter dem vorauf¬ 
gegangenen erscheint. Das ganze Dekodieren und Aus¬ 
drucken passiert in Zeile 90, und Zeile 100 sorgt dafür, 
daß die Komplimente unaufhörlich weiterfließen. 
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10 RAND 

2 0 L E T Fl $ = ' 1 N E T T E R U E IS E R S C H O E N E 
R S C H L Fl I.J E R C hl H R M Fl NT E R U IT Z IG ERFRE U N 
D L IC H E R G R O S S E R '' 

3 O L ET B* = "*r$ + 1 B ü U PI" 

4. Ö L. E T C $ = " H Fl N N P R O G R R hl M IE R E R C hl 
RME URGRUNER IND 1U IDURL. ISTHELDL IE B 


CODE 
i TO 


LINGS 

CHNURZEL" 


5 0 

LET Di--"" i 

>;3GKSINKEY$" 

60 

LET Fl = INT 

(RND*8)+1 

70 

LET B-INT 

(RND*8) +1 

80 

SCROLL 


90 

P R IN 1 Fl i i~ : 

ODE B$(RJ TO C 

6 i ( R 

+ 1 ) -1) " " 

; C i ( C O D E D i ( B :i 

CODE 

D $ (B + l i --1 

i 

1 0 0 

G OT O 6 0 


900 

SflUE " CHRMEUlä" 

910 

RUN 
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Der ZX81- 
Krawall-Generator 


Dieses Program ist eine bösartige Variante des “ZX81- 
Charmeur” und stammt ebenfalls von Dilwyn Jones. Es 
sorgt dafür, daß einem nicht die Worte ausgehen, wenn 
man seinen Nächsten beleidigen und erniedrigen will 
- ist also ebenso geeignet für häusliche Auseinander¬ 
setzungen wie für Büro-Krawalle. Die Graphik-Elemente 
in BS sind Shift 1, Shift T und Shift S, die entsprechenden 
Elemente in DS sind Shift 1, Shift 5 und Shift S. 


10 RAND 

£ 0 L E T A $ = •'' J O L. L G E F R E S S E M E R L R E C 
hl ERLIC H E! R D U M M E R ID IOT IS C H E R B L O E D E 
RUERDREHTER" 

30 LET B $ = “" (17IPZ" 

4.0 LET C $ = " flR3CMUHU ID IOTHORNOC 
H S E S R C K H ü N D F E T T U R N ST 3 U F F K O P P 3 C H E 
ISSERKAKKER" 

5 0 L E T D $ - " “ : *.3 C K TZ" 

60 LET R=INT <RND*6)+1 
70 LET B-INT (RND*10)+1 
30 SCROLL 

90 PRINT R $ (C O D E B$ < fl ) TO C O D E 
B $ ( fl + 1) - 1) ; " " ; C $ < C O D E D $ ( B ) T O 

CODE Dt iB + 1) -1) 

98 FOR 1=1 TO £0 

99 NEXT I 

1.0 0 G OT O 6 0 
9 0 0 3 fl O E ' 1 K R fl U AL[®§” 

910 RUN 
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_ Magisches Dreieck 

Magisches Dreieck 
ä la Loubere 


Nick Wilson hat sich dieses Programm ausgedacht, das 
nach der Methode de la Loubere vier magische Qua¬ 
drate von verschiedener Größe erzeugt. Ein magisches 
Quadrat ist ein Viereck, in dem alle Zahlen der senk¬ 
rechten und waagrechten Reihen und der Diagonalen 
die gleiche Summe ergeben. Beim Anlaufen des Pro¬ 
gramms werden Sie aufgefordert, die Seite/Höhe des 
Quadrats zu bestimmen; Sie dürfen dabei nur ungerade 
Zahlen zwischen 1 und 9 angeben, was von Zeile 130 
überprüft wird. Dann wird der Bildschirm blank und das 
Quadrat wird aufgebaut, um anschließend im Printer 
COPYed zu werden. 


100 

D IM M 

(4-7,4 7) 


1 1 0 

PRINT 

RT 10.0;"RNZRHL 

DER K 

OLUMNEN/RE 

IHEN •? " 


120 

IN PUT 

N 


ISS 

C L S 



130 

IF N/ 

2 = INT (N.--2) TUEN 

GOTO 

1 10 

13 1 

PR INT 

RT 0.0; " MRG 

ISCHE 

NUMMER *' ; 

RT 1,0 .; N " REIHE N / K 

QLUMNEN" 



150 

LET C 

1 — 0 


16 0 

LET C 

=INT (N/2)+1 


170 

L ET R 

= 1 


180 

LET C 

1=C1+1 


190 

LET M 

(R , CU =C1 


19 1 

PRINT 

RT R *2 + 1 . C* 3; C1 


200 

IF Ü 1 

= INT ( N * *2 j THEN 

G OT O 

330 




210 

IF C 1 

/ N < > I NT ( C 1 N ) THE N G O 
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LET R 

= R +1 

G OT O 

ISO 

LET C 

= C + 1 

IE c •? 

=N TUEN 

LET C 

= 1 

LET R 

= R - 1 

G OT O 

180 

LET R 

= R — 1 

IF R > 

0 THEM 

LET R 

= N 

GOT O 

18 0 

LET T 

= 0 

FOR I 

= 1 TO N 

L ET T 

=T + f-1 C I , 

N E XT 

I 

PR INT 

RT 0,0 

GORT 


SRUE 

"MRGISCI 

RUM 



MRG ISCHE NLif-1 MER 
R E: IH E N / K Ü L U M N E N 
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Bessere Programme 


Wie schreibt man 
bessere Programme? 

von Tim Hartneil, Herausgeber der Reihe 

In diesem Buch gibt es eine Reihe sehr guter Programme, 
und in vielen Cömputerzeitschriften findet man andere 
dieser Art. Aber gleichgültig, wie gut veröffentlichte 
Programme sein mögen, Sie haben mehr Spaß dabei, sie 
zu fahren, wenn sie teilweise oder ganz von Ihnen selbst 
verfaßt sind Programme mit Ihrem eigenen Stempel zu 
versehen, sie nach Ihren Wünschen und Einfällen ab¬ 
zuändern, ist eine ausgezeichnete Methode, die Pro¬ 
gramme zu verbessern, und mit der Zeit werden Sie 
natürlich ein besserer und vielseitigerer Programmierer. 
Programme in Zeitschriften und in Bänden wie diesen 
sind als Ausgangspunkte für Ihre eigenen Entwicklun¬ 
gen ideal. Sie werden vielleicht auch feststellen, daß neu 
angekündigte Software-Pakete fruchtbare Anregungen 
liefern können. Sie brauchen nur die Beschreibung des¬ 
sen zu lesen, was das auf den Markt gebrachte Programm 
leistet, und tun damit den ersten Schritt auf dem Weg zu 
Ihrem eigenen Programm. Sie müssen natürlich darauf 
achten, nicht gegen das Copyright, also die Rechte, auf 
das Bildschirmdisplay, den Namen des Programms oder 
die Namen der .Figuren“ im Programm zu verstoßen. Sie 
werden aber wohl feststellen, daß das Programm ab 
einem bestimmten Punkt in seiner Entwicklung ein Ei¬ 
genleben annimmt, vom Ansatzpunkt aus weiterwächst 
und sich verwandelt, bis Sie am Ende ein Programm mit 
völlig neuer Konzeption und Struktur haben. 
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Was Sie auch tun, hüten Sie sich davor, anderer Leute 
Arbeit als Ihre eigene auszugeben. Ändern und verbes¬ 
sern Sie veröffentlichte Programme nach Herzenslust, 
reichen Sie sie dann aber nicht bei Zeitschriften ein, als 
wären es Originalprogramme. Ich kann nicht mehr zählen, 
wie oft eines meiner Programme aus einem meiner 
Bücher mir zur Veröffentlichung vorgelegt worden ist. 
Halten Sie stets Ausschau nach neuen Ideen, wenn Sie 
Bücher, Spiele- und Computerzeitschriften durchblättem 
oder sich in Video-Spielhallen umsehen. Es mag sich 
lohnen, Ideen zu Spielen, Figurenformen, Geräuschen, 
dramatischen Spielabschlüssen und dergleichen zu no¬ 
tieren. So wird es Ihnen an Einfällen nie fehlen, und Sie 
werden außerdem das Material einbauen können, um 
bessere Spiele hervorzubringen, die das Interesse des 
Spielers länger fesseln. 

Spiele fallen in der Regel in drei Kategorien, und es lohnt 
sich, über die Kategorie zu vergewissern, in die Ihr vor¬ 
gesehenes Programm fallen wird, bevor Sie mit dem 
Programmieren anfangen, weil die Spielkategorie auf die 
Programmierweise einen erheblichen Einfluß hat. Das 
soll nicht heißen, daß ein Programm, an dem Sie arbeiten, 
nicht von einer Kategorie in eine andere rutschen oder 
daß ein bestimmtes Spiel nicht zwei Kategorien umgrei¬ 
fen kann, aber es ist trotzdem nützlich, die verschiedenen 
Gruppen bei Ihren Überlegungen getrennt zu halten, da¬ 
mit Sie klarer denken. Die drei Kategorien sind: 

1. Brettspiele 

2. ,Arkade“-Spiele (das heißt schnelle, laute Echtzeit¬ 
spiele, bei denen sich für das Auge viel tut) 

3. Glücksspiele (wie Roulette und Snap) 
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Bei Brettspielen ist die Qualität des Spiels wichtiger als 
blitzschnelle Reaktion, während die Arkade-Programme 
um jeden Preis in Bewegung gehalten werden müssen, 
selbst wenn das bedeutet, einen Teil „Intelligenz“ Ihrer 
Angreifer vom Mars zu opfern. Glücksspiele hängen 
mehr von der Leichtigkeit des Spielens (.benutzer¬ 
freundliche“ Eingaben) und einer Annäherung an echte 
Zufälligkeit ab als die beiden anderen Kategorien. 

Sie werden feststellen, daß Spielprogramme sich nach 
Typen unterscheiden, die Unterabteilungen der oben 
erwähnten Kategorien sind. Viele Brettspiele sind Ab¬ 
wandlungen von Schach oder Dame; viele Arkade- 
Spiele fingen an als Spiele vom Typ .Angreifer aus dem 
Weltall“; und Glücksspiele stammen aus der „wirklichen“ 
Welt der Würfel und Spielkarten. Wenn Sie sich eine 
Programmbeschreibung oder ein Spielgerät ansehen 
und das Spiel einzustufen versuchen, können Sie mit¬ 
helfen, neue Ideen zu entwickeln, die in den Gesamtbe¬ 
reich dieses Spiels passen. 

Beim Programmieren gibt es eine Denkweise - allge¬ 
mein „strukturiertes Programmieren“ genannt - nach 
deren Ansicht zu Beginn des Verfahrens, Spiele zu 
schreiben, sei Disziplin unabdingbar. Das macht zwar 
weniger Spaß, als sich gleich an den C omputer zu setzen, 
aber dafür kommt am Ende auch ein besseres Programm 
heraus. Ich habe einmal ein Programm namens "Dome 
Dweller” (Raumstation) geschrieben, ein Simulationspro¬ 
gramm, in dem der Spieler für eine Wohnkuppel auf dem 
Mond“ zu sorgen hat und entscheiden muß, welche Er¬ 
zeugnisse hergestellt und verkauft werden müssen, da¬ 
mit man für die Bewohner der Station Sauerstoff und 
Nahrungsmittel erwerben kann. Als ich mir über den all- 
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gemeinen Ablauf im klaren war, arbeitete ich das Bild¬ 
schirmdisplay aus und kam auf folgende Idee: 

Die Sauerstoffwerte sind gering; 

Im Jahr 3 leben in Ihrer Kuppel 96 Menschen; 

An Geld sind vorhanden 5 693 Dollar; 

Die jährliche Wartung kostet 226 Dollar; 

Die Sauerstofftanks enthalten 811 Einheiten; 

Sauerstoff kostet je Einheit 8 Dollar; 

Jeder Kuppelbewohner verbraucht im Jahr 5 Einheiten; 
Die Lebensmittelvorräte stehen bei 2122; 

Jeder Kuppelbewohner verbraucht im Jahr 3 Einheiten 
(jeder 6 Dollar, für die ganze Kuppel 576 Dollar, Das 
reicht bei der jetzigen Bewohnerzahl für 7 Jahre). 
Sie können Ihre konkurrenzlosen Mondskulpturen im 
Tauschhandel den Leuten in anderen Kuppeln über¬ 
lassen. Jedes Stück erfordert 2 Einheiten Sauerstoff, 
verkauft wird es für 30 Dollar. 

Wie Sie sich nach dieser .Protokollprobe“ denken kön¬ 
nen, kommt es bei dem Programm auf die Entscheidung 
an, wie viele Mondskulpturen Sie hersteilen und verkau¬ 
fen müssen, um Sauerstoff und Nahrungsmittel zu erwer¬ 
ben und die .jährlichen Wartungskosten“ zu bezahlen. 
Das Problem ist, daß die Herstellung jeder Skulptur 
Sauerstoff erfordert, so daß Sie Ihren Wunsch, Geld zu 
verdienen, in Übereinstimmung mit der Notwendigkeit 
bringen müssen, den Sauerstoff klug einzuteilen. 

Sie haben vielleicht Lust, ein solches Programm selbst zu 
schreiben. Am Ende müßte es viel Spaß machen, und Sie 
können Ihre Programmierkünste dadurch sicherlich er¬ 
weitern. Als erstes stellt man eine Liste darüber auf, 
was das Programm leisten soll: 
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Die erforderlichen Variablen festlegen; 

Dem Spieler den „Zustand der Kuppel“ mitteilen; 

Fragen, wieviel Sauerstoff gekauft werden soll; 

Prüfen, ob man sich das leisten kann, wenn ja, kaufen, 
sonst zurückgehen und erneut fragen; 

Fragen, wieviel an Nahrungsmitteln gekauft werden soll; 

Prüfen, ob man sich das leisten kann, wenn ja, kaufen, 
sonst zurückgehen und erneut fragen; 

Menge des Sauerstoffs aktualisieren; 

Menge der Nahrungsmittel aktualisieren; 

G4ld auf Restsumme verringern; 

Fragen, wie viele Skulpturen hergestellt werden sollen; 

Prüfen, ob genug Sauerstoff vorhanden ist, um so viele 
herzustellen, sonst zurückgehen und erneut fragen; 

Sauerstoffmenge um jenen Betrag verringern, der erfor¬ 
derlich ist, um die gewünschte Zahl von Skulpturen 
herzustellen, Geldgesamtsumme erhöhen um Wert 
der her gestellten Skulpturen; 

Die Bewohnerzahl gering erhöhen, für das „laufende 
Jahr“ 1 hinzufügen; 

Prüfen, ob genug Nahrungsmittel auf Lager sind, um die 
ganze Bewohnerschaft zu ernähren; 

Prüfen, ob für alle Bewohner genug Sauerstoff vorhanden 
ist; 

Prüfen, ob Geld vorhanden ist; 

Falls irgendeine dieser Bedingungen nicht erfüllt ist 
(etwa nicht genug Nahrungsmittel), Spiel beenden; 

Wenn alle erfüllt sind, in der Schleife zurückgehen, 
dem Spieler Zustand der Kuppel mitteilen und weiter¬ 
machen. 
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Sie könnten vermutlich ein Programm „Raumstation“ mit 
Hilfe der obigen Liste und der Information in der .Proto¬ 
kollprobe“ schreiben. Es gibt jedoch ein Geheimnis, das 
Programmierprobleme beinahe augenblicklich aufklärt, 
und das ich mit Ihnen teilen möchte. Sie können alle 
wichtigen Teile eines Programms tatsächlich innerhalb 
von Minuten schreiben, sehen das Rohgerüst eines sol¬ 
chen Programms also schon laufen, lange bevor Sie sich 
mit den Einzelheiten abgeben. Sobald Sie ein Gerüst 
haben, können Sie daran arbeiten, so lange Sie wollen, 
weil Sie wissen, daß Sie in jedem Augenblick der Pro¬ 
grammierentwicklung ein funktionierendes Programm 
haben. Sie brauchen nicht bis zum Ende zu warten, um 
zu sehen, wie Sie vorankommen. Das „Geheimnis" be¬ 
steht darin, das ganze Programm in eine Folge von Sub- 
routinen-Aufrufen einzufügen, alles in einer Dauer¬ 
schleife. Die allerersten Zeüen, die Sie in Ihren Com¬ 
puter eingeben, sehen demnach so aus: 

10 REM RAUMSTATION 
20 GOSUB 1000: REM VARIABLE ZUTEILEN 
30 GOSUB 2000: REM ZUSTAND D. KUPPEL ANZEIG. 
40 GOSUB 3000: REM SAUERSTOFF 
50 GOSUB 4000: REM NAHRUNGSMITTEL 
60 GOSUB 5000: REM SKULPTUR 
70 GOSUB 6000: REM BEWOHNERZAHL AKTUALISIER. 
80 GOSUB 7000: REM ZUSTAND D. KUPPEL PRUEFEN 
90IF (alle Bedingungen nach GOSUB 7000 positiv) 
THEM GOTO 30 
100 REM Ende des Spiels 
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Wie Sie sehen, ist es, sobald Sie auf diese Weise die 
Hauptschleife aufgebaut haben, relativ einfach, eine 
Subroutine nach der anderen auszufüllen, sie dabei zu 
testen und auszuarbeiten, bis Sie am Ende ein sehr gutes 
Programm haben. Das einzige, was Sie nun noch brau¬ 
chen, ist eine Liste der Variablen, die Sie im Programm 
verwenden. 

Ich halte es für das Beste, klare Namen für Variable zu 
nehmen, damit Sie beim Programmieren nicht nachsehen 
müssen, ob AA für die Bewohnerzahl oder für die Zahl 
der verbrauchten Sauerstoffeinheiten je Skulptur steht. 
Damit Programme zwischen verschiedenen Computern 
so leicht wie möglich zu übertragen sind, können Sie bei 
Variablennamen aus zwei Buchstaben bleiben oder (falls 
Ihr Computer das zuläßt) den Vorteil langer Namen für 
Variable nutzen (wie OXYVERBRAUCH für die Menge 
verbrauchten Sauerstoffs). Dann treten keine Zweifel 
darüber auf, was jeder Variablenname bedeutet. Um zu 
zeigen, daß das geht, und einen weiteren Vorteil deut¬ 
licher Variablennamen zu veranschaulichen, hier die 
Variablen in "Dome Dweller": 

LEUTE - Bewohnerzahl der Kuppel; 

GELD - Barvermögen; 

NÄHR - vorhandene Lebensmittelvorräte; 

NAHRKOST - wieviel jede Einheit Nahungsmittel kostet; 
NAHRBED - wie viele Einheiten Nahrungsmittel imjahr 
pro Person verbraucht wurden; 

SKULKOST - wieviel Sauerstoff für jede Skulptur ver¬ 
braucht wurde; 

SKULPREIS - für wieviel Dollar jede Skulptur verkauft 
wurde; 
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OXY - vorhandene Sauerstoffvorräte; 

OXYBED - wie viele Einheiten Sauerstoff im Jahr pro 
Person verbraucht wurden; 

REPAR - die jährlichen Reparaturkosten für die Kuppel; 
JAHR - das Lebensjahr der Kuppel. 

Klare Variablennamen auf diese Weise zu verwenden 
- obwohl sie mehr Speicherplatz verbrauchen als Varia¬ 
blennamen mit einem oder zwei Buchstaben - verein¬ 
facht es sehr, ein Programm durchzugehen und festzu¬ 
stellen, was jeder Programmteil leistet. Überdies, und 
das ist der zweite Vorteil, den ich erwähnt habe, fällt es 
beim Verfassen des Programms sehr leicht, die für Be¬ 
rechnungen erforderlichen Formeln einzufügen. Damit 
meine ich: Wenn Sie beispielsweise (wie ich in diesem 
Programm) eine Anzeige dafür einbauen wollen, wieviel 
Sauerstoff jedes Jahr gebraucht wird, multiplizieren Sie 
einfach die Zahl der Menschen in der Kuppel (LEUTE) 
mit der Zahl der Sauerstoffeinheiten, die jede Person im 
Jahr braucht (OXYBED). Dann können Sie in die Listen 
für den Zustand der Kuppel Zeilen einfügen wie: 

PRINT JN DER KUPPEL“; „GIBT ES“; .LEUTE“ 

PRINT JM JAHR“ JAHR 
PRINT JEDE PERSON BRAUCHT“; OXYBED; 
.EINHEITEN“ 

PRINT „SAUERSTOFF IM JAHR“; OXYBED*LEUTE; 

.ERFORDERLICH“ 

PRINT .EUER DIE GANZE KUPPEL“ 

Außerdem wird dadurch die Prüfung sehr erleichtert, ob 
Einkäufe möglich sind. Beispiel: Um Nahrungsmittel zu 
kaufen, würden Sie sagen: 
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PRINT .WIEVIEL NAHRUNGSMITTEL WOLLEN SIE 
KAUFEN?“ 

INPUT A 

IF A*NAHRUNGSKOST>GELD THEN GOTO 
(neues A holen) 

Zu den hier gemachten Vorschlägen, Ihre Programme 
durch Anwendung ,.strukturierten Programmierens“ zu 
verbessern, gehören: 

- ein Probeexemplar oder Modell des endgültigen Bild¬ 
schirmdisplays skizzieren; 

- eine Liste dessen aufstellen, was das Programm bei 
jedem Lauf durch eine .Hauptsteuerungs-Schleife“ zu 
leisten hat; 

- diese Liste in eine Folge von aufzurufenden Subrou¬ 
tinen verwandeln; 

- wo möglich, klare Variablennamen verwenden. 

Wenn Sie Programme für andere Leute entwerfen, ist es 
nützlich, ganz deutlich zu machen, was der Spieler beim 
Fahren des Programms tun soll. Es hat, vor allem bei 
begrenztem Speicherplatz, wenig Sinn, in das Programm 
selbst eine lange Folge von Instruktionen einzufügen, 
aber schriftlich niederlegen sollten Sie solche Instruk¬ 
tionen schon. Außerdem sollten Anforderungen für An¬ 
wender deutlich sein (etwa: EINGABE, WIE OFT SIE ES 
VERSUCHEN WOLLEN) und Hinweise auf die Grenzen 
für die Eingaben enthalten (Beispiel: MIT WIEVIEL 
KARTEN WOLLEN SIE ANFÄNGEN: 1,2 ODER 3?). 

Sie dürfen nicht davon ausgehen, Sie wären jedesmal 
dabei, wenn ein Programm gefahren wird, also sollten 
Sie Ihr Bestes tun, um es so narrensicher wie möglich 
zu machen. Wenn Sie können, fügen Sie in das Programm 
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Fehleraufdeckungs-Routinen ein, um dafür zu sorgen, 
daß ein Fehler bei der Eingabe einer Möglichkeit unter 
mehreren zu einem früheren Zeitpunkt im Programm 
keinen Absturz oder später unsinnige Ergebnisse ver¬ 
ursacht. 

Wenn Sie diesen Abschnitt des Buches mehrmals durch¬ 
gelesen haben und versuchen, diese Ideen auf Ihre 
eigene Programmiertätigkeit anzuwenden, sollten Sie 
feststellen, daß die Qualität Ihrer Leistung deutlich zu¬ 
nimmt, und daß Sie auch mehr Zeit für Verbesserung und 
Ausschmückung eines Programms aufwenden können 
als für die ziemlich mechanische Aufgabe, das Ding zum 
Laufen zu bringen. 
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Fachausdrücke 

A 

Akkumulator - der Ort im Computer, wo arithmetische 
Berechnungen ausgeführt und die Resultate dieser Be¬ 
rechnungen gespeichert werden. 

Algorithmus - die Reihe von Schritten, die ein Com¬ 
puter durchläuft, um ein bestimmtes Problem zu lösen, 
alphanumerisch - dieser Ausdruck wird in der Regel 
im Verhältnis zu einer Tastatur verwendet, wie bei „es 
handelt sich um eine alphanumerische Tastatur“. Das 
bedeutet, daß die Tastatur über Buchstaben und Ziffern 
verfügt. Man gebraucht ihn auch, wenn man vom .Zei¬ 
chensatz“ des Computers spricht. Der Zeichensatz um¬ 
faßt die Ziffern und Buchstaben, die der Computer auf 
dem Bildschirm anzeigen kann. 

ALU (Arithmetic/Logic Unit) - Rechen- und Steuer¬ 
werk. Der Teil des Computers, der Arithmetik (wie Addi¬ 
tion und Subtraktion) leistet, und wo Entscheidungen 
getroffen werden. 

ÄND - eine Boolesche logische Operation, die der Com¬ 
puter bei seinem Entscheidungsprozeß ausführt. Sie be¬ 
ruht auf der Booleschen Algebra, ein System, entwickelt 
von dem Mathematiker George Boole (1815-1864). In der 
Booleschen Algebra stellen die Variablen eines Aus¬ 
drucks eine logische Operation wie OR oder NOR dar. 
Anweisung - Daten, die einen Einzelschritt in der Infor¬ 
mationsverarbeitung durch den Computer steuern (auch 
Befehl genannt). 

ASCII - für American Standard Code for Inforirfation 
Exchange, das gebräuchlichste Codierungssystem für 
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alphanumerische Zeichen der englischen Sprache. Es 
gibt 129 große und kleine Buchstaben, Ziffern und einige 
Sonderzeichen. ASCII verwandelt die Symbole und 
Steueranweisungen in Binärkombinationen von sieben 
Bits. 

Assembler - ein Programm, das andere, in Assembler¬ 
sprache geschriebene Programme in Maschinencode 
verwandelt (den der Computer direkt verstehen kann). 
Assemblersprache ist eine niedere Programmier¬ 
sprache, die leicht zu merkende Kombinationen von zwei 
oder drei Buchstaben zur Darstellung eines bestimmten 
Befehls verwendet, den der Assembler dann umwandelt, 
so daß die Maschine ihn verstehen kann. Beispiele dafür 
sind ADD (addiere) und SUB (subtrahiere). Ein in Assem¬ 
blersprache programmierter Computer vermag schnel¬ 
ler zu arbeiten als ein in einer höheren Programmier¬ 
sprache wie BASIC programmierter. 

B 

BASIC - Abkürzung für Beginners All-Purpose Symbolic 
Instruction Code. Die gebräuchlichste Computer¬ 
sprache für Mikrocomputer. Obwohl von vielen Leuten 
kritisiert, hat sie den Vorteil, leicht erlernbar zu sein. 
Viele BASIC-Befehle entsprechen dem Alltagsenglisch. 
Baud - benannt nach Emile Baudot, dem Wegbereiter 
der Telegraphie. Baud ist das Maß für die Übertragungs¬ 
geschwindigkeit und entspricht rund einem Bit pro 
Sekunde. 

BCD - Abkürzung für Binary CodedDecimal, Binärcode 
für Dezimalziffem. 

Benchmark - Vergleichslauf, bei dem bestimmte Funk- 
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tionen des Computers gemessen werden können. Es 
gibt eine Reihe sogenannter „Standard-Benchmarkauf- 
gaben", die in der Regel aber nur die Schnelligkeit 
messen, bei einem Mikrocomputer selten der Punkt, der 
für den künftigen Käufer das Wichtigste wäre. 
Betriebssystem - die mit dem Computer in der Regel 
mitgelieferte Soft- oder Firmware, mit denen Sie andere 
Programme fahren können. 

Binär - ein Zahlensystem, das nur Nullen und Einsen 
verwendet. 

Bit - Abkürzung für Binary Digit, Binärziffer. Das ist die 
kleinste Einheit, die eine Computerschaltung erkennen 
kann. 

Boolesche Algebra - das algebraische System, das 
der Mathematiker George Boole entwickelt hat. Es ver¬ 
wendet algebraische Schreibung, um logische B eziehun- 
gen auszudrücken (siehe AND). 

Bug - eigentlich,Käfer“, Jnsekt“ - Fehler in einem Com¬ 
puterprogramm, der das Programm hindert, richtig zu 
laufen. Obwohl damit in der Regel ein Fehler oder ein 
Ausfall in einem Programm gemeint ist, kann “bug” auch 
einen Defekt in der Computer-Hardware bedeuten. 

Bus - Sammelschiene für die Übertragung von Signalen 
wie Datenanweisungen oder Leistungsein-und ausgabe 
eines Computers. 

Byte - eine Gruppe von Binärziffem, die ein Computer¬ 
wort ausmacht. In der Regel besteht ein Byte aus acht Bits. 

C 

CAI - Computer Assisted Instruction = computerunter¬ 
stützter Unterricht. 
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CÄL - Computer Assisted Leaming = computerunter- 
stzütztes Lernen. Der Ausdruck wird allgemein für Pro¬ 
gramme verwendet, die den Lernenden mit dem Lernpro¬ 
zeß befaßt. 

Chip - der übliche Ausdruck für die gesamte Schaltung, 
die auf eine kleine Siliziumscheibe geätzt wird. Der Chip 
befindet sich natürlich im Herzen des Computers. 
COBOL - eine höhere Programmiersprache, abgekürzt 
für C ommon Business Orientated Language. COBOL ist in 
erster Linie für Dateiverwaltung und Archivierung ge¬ 
dacht. 

Compiler - ein Computerprogramm, das höhere Pro¬ 
grammiersprachen in binären Maschinencode umwan¬ 
delt, damit der Computer damit umgehen kann. 
Computer - ein Gerät mit drei Hauptfähigkeiten oder 
-funktionen: 

1. Daten anzunehmen; 

2. Probleme zu lösen; 

3. Resultate zu liefern. 

CPU - Abkürzung für Central Processing Unit = Zentral¬ 
einheit. Das Herz der Computerintelligenz, wo Daten ver¬ 
arbeitet und Befehle ausgeführt werden. Bei Mikros 
Mikroprozessor. 

Cursor - ein Zeichen, das auf dem Bildschirm erscheint, 
wenn der Computer in Betrieb ist. Es zeigt an, wo das 
nächste Zeichen angezeigt wird. Ein C omputer verfügt in 
aller Regel über „Cursor-Steuertasten 11 , damit der Anwen¬ 
der den Cursor auf dem Bildschirm herumführen kann. 
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D 

Datei - eine Sammlung von untereinander in Bezie¬ 
hung stehenden Informationsposten, auf systematische 
Weise organisiert. 

Daten - Information in einer Form, die der Computer 
verarbeiten kann. 

Debug - Debug = entfehlem, der gängige Ausdruck 
dafür, ein Programm durchzugehen und alle Fehler darin 
auszubessem, das heißt, den Bugs nachzujagen und sie 
zu entfernen (siehe Bug). 

Digitalcomputer - ein Computer, der mit Informatio¬ 
nen arbeitet, die in diskreter Form erscheinen. 
Diskette - eine magnetisierte Plastikscheibe, etwas 
kleiner als eine Single-Schallplatte. Sie wird verwendet 
zum Speichern und Abrufen von Daten. Disketten sind 
erheblich schneller zu laden als eine Kassette mit dem 
Programm der selben Länge. Die Diskette kann sehr 
rasch gelesen werden, während ein Programm für zusätz¬ 
liche Daten gefahren wird. 

Display - die sichtbare Ausgabe eines Computers, in 
der Regel auf einem Femseh- oder Monitorbildschirm. 
Dynamischer Speicher - eine Speichereinheit im 
Computer, der seinen Inhalt vergißt, wenn der Strom 
abgeschaltet wird. 


E 

Editor - der Ausdruck wird allgemein verwendet für 
die Routine im Computer, mit der man beim Schreiben 
eines Programms Zeilen verändern kann. 

EPROM - Abkürzung für Erasable Programmable 
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Read-Only Memory = löschbarer programmierbarer 
Festspeicher. Im Computer wie ROM, nur kann man in 
einen EPROM verhältnismäßig leicht Material laden, und 
es verschwindet nicht, wenn man den Strom abschaltet. 
EPROMs müssen, um gelöscht zu werden, in starkes 
UV-Licht gebracht werden. 


F 

Fehlermeldungen - die Information, die ein Computer 
übermittelt, wenn in einem Programmteil ein Fehler in der 
Codierung auftritt. In der Regel dadurch angezeigt, daß 
der Computer stehenbleibt und unten am Bildschirm ein 
Wort oder ein Wort und Zahlen oder nur Zahlen anzeigt. 
Das teilt Ihnen mit, welcher Fehler begangen worden ist. 
Häufige Fehler: die Verwendung des Buchstaben „O “ statt 
der Null in einer Programmzeile, das Weglassen beider 
oder einer Klammer in einem Ausdruck, oder das Ver¬ 
säumnis, eine Variable zu definieren. 

Floppy Disk - eine vergleichsweise billige Magnet¬ 
scheibe für das Speichern von Computerinformation, so 
genannt, weil sie biegsam ist (siehe Diskette). 

Flow Chart - Flow Chart = Flußdiagrammm, ein Dia¬ 
gramm, angelegt, bevor man ein Programm schreibt. Die 
Hauptoperationen werden in Rechtecke, Trapeze oder 
andere Gebilde gesetzt und durch Striche miteinander 
verbunden, wobei Pfeile Schleifen darstellen und an den 
Verzweigungsstellen Entscheidungen notiert werden. 
Das Abfassen eines Programms wird dadurch sehr er¬ 
leichtert, weil folgenreiche Fehler wie Endlosschleifen 
oder nicht definierte Variable schon in einem frühen Sta¬ 
dium erkannt werden können. Bei sehr kurzen Program- 
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men mag sich ein Flußdiagramm nicht lohnen, aber im all¬ 
gemeinen nützt es beim Abfassen vom Programmen. 
Firmware - es gibt bei Computern drei Arten von 
“wäre": Software, das sind „temporäre“ Programme, Hard¬ 
ware, wie das ROM, das dauerhafte Information enthält, 
und Firmware, wo die Information relativ dauerhaft ist wie 
in einem EPROM (siehe dort). 

Flip-Flop - eine Schaltung, die einen elektrischen Zu¬ 
stand hält, bis sie durch ein Eingabesignal in den ent¬ 
gegengesetzten Zustand gebracht wird. 

Flüchtig - bezieht sich auf Speicher, die ihren Inhalt 
„vergessen“, wenn der Computer abgeschaltet wird. 
FORTRAN - Abkürzung für FORmula TRANslation, 
eine höhere, problemorientierte Programmiersprache 
für wissenschaftliche und mathematische Zwecke. 


G 

Gate - Gate = Gatter, eine elektrische Schaltung, die 
zwar ein oder mehrere Signale empfangen kann, aber 
nur ein Signal aussendet. 

Grafik - Bildinformation im Gegensatz zu Buchstaben 
und Ziffern. 


H 

Halbleiter - ein Material, das sonst ein elektrischer 
Isolator ist, unter bestimmten Umständen aber zum Leiter 
werden kann. 

Hard Copy - Computerausgabe in dauerhafter Form, 
beispielsweise als ausgedruckte Liste. 


117 




Spiele für Ihren ZX 81 


Hardware - die physischen Teile des Computers (siehe 
auch Software und Firmware). 

Hexadezimal (Hex) -einZahlensystemmitderBasis 16. 
Die Ziffern Null bis Neun werden ebenso wie die Buch¬ 
staben A, B, C, D, E und F dazu verwendet, Zahlen darzu¬ 
stellen. A entspricht 10, B 11, C 12, und so weiter. Hex wird 
von Mikrocomputer-Anwendern oft verwendet. 

HexPad - eine Tastatur, die eigens für die Eingabe von 
Hexadezimalschreibung eingerichtet ist. 
höhere Programmiersprache - eine Programmier¬ 
sprache, die es dem Anwender gestattet, mit dem Com¬ 
puter mehr oder weniger Englisch zu sprechen. Generell 
kann man sagen: Je höher die Stufe der Sprache (das 
heißt, je verwandter dem Englischen), desto länger 
braucht der Computer dazu, sie in eine Sprache umzu¬ 
wandeln, die er nutzen kann. Sprachen auf niederer Stufe 
sind für den menschlichen Anwender viel schwieriger, 
werden in der Regel aber weitaus schneller ausgeführt. 

I 

Input - die über eine Tastatur, ein Mikrofon, eine Kas¬ 
sette oder eine Diskette in den Computer eingegebene 
Information. 

Input/Output (I/O Device) - Ein-/Ausgabegerät, ein 
Gerät, das Information oder Befehle von der Außenwelt 
annimmt, an den Computer weitergibt und nach Ver¬ 
arbeitung die Information in einer Form aussendet, die 
speicherfähig ist oder von einem Menschen verstanden 
werden kann. 

integrierte Schaltung - eine komplette elektronische 
Schaltung, eingeätzt auf die Oberfläche eines Halbleiters. 
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Interface - Interface = Schnittstelle, die Grenze zwi¬ 
schen einem Computer und einem Peripheriegerät, etwa 
einem Drucker. 

Interpreter - ein Programm, das die vom menschlichen 
Anwender eingegebene höhere Programmiersprache in 
eine andere Sprache übersetzt, die der Computer ver¬ 
stehen kann. 

K 

IC - bezieht sich auf die Speichergröße. Speicherplatz 
wird in der Regel in Blöcken von 4K gemessen. 1K ent¬ 
hält 1024 Bytes. 

Komparator - eine Schaltung, die zwei Dinge ver¬ 
gleicht und ein Signal liefert, das in Beziehung zu dem 
Unterschied zwischen den beiden steht. 

L 

LCD - Abkürzung für Liquid Cristal Diode = Flüssig¬ 
keitskristalldiode. Manche Computer, etwa der TRS-80 
Taschencomputer haben eine LCD-Anzeige. 

LED - Abkürzung für Light Emitting Diode = Leucht¬ 
diode. Die hellen roten Zahlen, oft bei Digitaluhren, be¬ 
stehen aus LED, 

Logik - die mathematische Form einer Untersuchung 
von Beziehungen zwischen Ereignissen. 

M 

Maschinensprache oder Maschinencode - ein Be¬ 
triebscode, der vom Computer direkt verstanden und 
ausgeführt werden kann. 
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Magnetplatte - siehe Diskette und Floppy Disk. 
Mainframe - Computer werden generell in drei Grup¬ 
pen aufgeteilt. Die Zugehörigkeit hängt mehr oder we¬ 
niger von der Größe des Computers ab. Der Computer, 
den Sie sich kaufen wollen, ist ein Mikrocomputer; mittel¬ 
große Computer werden Minicomputer genannt; die 
riesigen Computer, die Sie manchmal in Science Fiction- 
Filmen sehen, sindMainframe-C omputer. Bis vor 15 J ahren 
gab es praktisch nur Mainframe-Anlagen, 
Matrixdrucker - ein Drucker, der entweder das Listing 
eines Programms oder das ausdruckt, was auf dem Bild¬ 
schirm angezeigt wird. Alle Buchstaben und Symbole 
bestehen aus einer Anzahl Punkte. Je höher die Zahl 
der Punkte, desto höher das Auflösungsvermögen des 
Druckers. 

Mehrlagen-Verdrahtungsplatte - Platine, der zusätz¬ 
liche Schaltungen zugefügt werden können. Diese Schal¬ 
tungen verleihen dem Computer oft Fähigkeiten, die 
nicht eingebaut sind, etwa Klangerzeugung oder Steue¬ 
rung eines Lichtgriffels. 

Mikroprozessor - das Herz jedes Computers.Es benö¬ 
tigt periphere Schnittflächen wie Stromzuleitung und 
Ein- und Ausgabegeräte, damit ein Mikrocomputer zu¬ 
standekommt. 

MODEM - Abkürzung für Modulator Demodulator 
= Übermitüungseinheit, ein Gerät, durch das zwei Com¬ 
puter über eine Telefonleitung miteinander sprechen 
können. Verwendet wird meistens ein akustischer Kop¬ 
pler, in den man den Telefonhörer legt. 

Monitor - in der Computersprache von zweifacher 
Bedeutung. Einmal ist ein femsehartiges Display ge¬ 
meint. Ein Monitor ist nicht darauf eingerichtet, Fern- 
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sehprogramme zu empfangen; in der Regel ist das Bild 
auf einem Monitor besser als das eines normalen Fern¬ 
sehapparats. Der zweite Sinn eines Monitors betrifft 
ROM. Als Monitor eines Computers wird die eingebaute 
Information bezeichnet, wenn Sie ihn erwerben. Mit 
dieser Information können Entscheidungen getroffen 
und arithmetische Berechnungen ausgeführt werden. 
MPU - Abkürzung für Microprocessor Unit = Mikropro¬ 
zessor-Einheit. 


N 

Nanosekunde - eine Nanosekunde ist eine Milliardstel¬ 
sekunde, Einheit der Geschwindigkeit, nach der ein 
Computer oder ein Speichertip oft bewertet werden. 
Nichtflüchtiger Speicher - Speicher, dessen Inhalt 
nicht verlorengeht, wenn man den Computer abschaltet. 
Einige der kleineren Computer, wie derTRS-80 Taschen¬ 
computer, haben nichtflüchtige Speicher. Die Batterien 
halten das Programm, das Sie eingeben, mehrere hundert 
Stunden lang fest. 

NOT - eine Boolesche logische Operation, die eine 
Binärziffer in ihr Gegenteil umwandelt. 

Nullstring - auch leerer String. Ein String, der keine 
Zeichen enthält. In Programmen wird er angezeigt durch 
zwei doppelte Anführungszeichen, zwischen denen 
nichts steht. 

Numerisch -bezogen aufZahlen im Gegensatz zuBuch- 
staben (also alphabetisch). Viele Tastaturen werden als 
alphanumerisch bezeichnet; sie verfügen über Ziffern 
und Buchstaben. 
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O 

Oktal - ein Zahlensystem mit 8 als Basis und den Zif¬ 
fern 0,1, 2, 3, 4, 5, 6 und 7. Das Oktalsystem wird heut¬ 
zutage im Mikrocomputerbereich nicht mehr viel ver¬ 
wendet. Das Hexadezimalsystem ist gängiger (siehe 
Hexadezimal). 

OR - eine arithmetische Operation, die, wenn eine oder 
mehrere Eingaben 1 sind, 1 liefert. 

Oracle - eine Methode, mit einem gesendeten Fernseh¬ 
signal Textmitteilungen zu übertragen. Zur Entschlüs¬ 
selung der Mitteilungen bedarf es einer Teletext-Anlage. 
Das dialogfähige System ist in Großbritannien entwickelt 
worden. 

Output - Information oder Daten, vom Computer aus¬ 
gegeben an Geräte wie einen TV-Bildschirm, einen 
Drucker oder eine Magnetbandkassette. 


P 

PASCAL - eine höhere Programmiersprache. 
Peripherie - alles, was an einen Computer angeschlos¬ 
sen ist, um von ihm gesteuert zu werden, etwa ein Disket¬ 
tenlaufwerk, ein Drucker oder ein Sprachsynthesizer. 
Port - ein Anschluß, durch den Information in den Com¬ 
puter ein- oder von ihm ausgegeben werden kann. 
Programm - die Liste der Befehle, die Sie in einen 
Computer eingeben. 

PROM - Abkürzung für Programmable Read Only Me¬ 
mory = programmierbarer Festspeicher. Kann program¬ 
miert werden, und das Programm bleibt dort auf Dauer 
bestehen (siehe auch EPROM und ROM). 
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R 

Random Access Memory (RAM) -RAM= Speicher 
mit wahlfreiem Zugriff. Der Speicher in einem Com¬ 
puter, der vom Anwender beliebig verändert werden 
kann. Der Inhalt von RAM geht in der Regel verloren, 
wenn man den Computer abschaltet. RAM speichert 
das von Ihnen eingegebene Programm ebenso wie die 
Ergebnisse von laufenden Berechnungen. 

Read-Only Memory (ROM) - ROM = Nur-Lese- oder 
Festspeicher. Im Gegensatz zum RAM kann Informa¬ 
tion in ROM vom Anwender nicht verändert werden, 
und die Information geht nicht verloren, wenn man den 
Computer abschaltet. Die Daten in ROM werden vom 
Hersteller eingegeben und teilen dem Computer mit, 
wie er Entscheidungen treffen und arithmetische Be¬ 
rechnungen ausführen soll. Die Große von RAM und 
ROM wird in K angegeben (siehe K). 

Rekursion - die ständige Wiederholung eines Pro- 
grammteüs. 

Register - ein bestimmter Platz im Speicher, wo wäh¬ 
rend der Operation ein Wort oder mehrere Wörter 
gespeichert werden. 

Reserviertes Wort - ein Wort, das Sie in einem Pro¬ 
gramm nicht als Variablennamen verwenden können, 
weil der Computer es als etwas anderes liest. Beispiel: 
das Wort TO. Weil TO für den Computer einen be¬ 
stimmten Sinn hat, weisen die meisten Computer es 
als Variablennamen zurück. Dasselbe gilt für Wörter 
wie FOR, GOTO und STOP 

Routine - dieses Wort wird gebraucht als Entsprechung 
für .Programm“ oder kann sich auf einen bestimmten 
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Abschnitt innerhalb eines Programms beziehen (siehe 
Subroutine). 


S 

Schleife - eine Folge von Befehlen innerhalb eines Pro¬ 
gramms, immer wieder ausgeführt, bis eine bestimmte 
Bedingung erfüllt ist. 

Schlüsselwort - das Auslösewort in einer Programm¬ 
zeile, in der Regel das erste Wort nach der Zeilennummer. 
Zu den Schlüsselwörtern gehören STOP, PRINT und 
GOTO. 

Seite - oft verwendet als Bezeichnung für die Informa¬ 
tionsmenge, die eine Büdschirmseite füllt. Man kann 
also sagen, man sähe eine Seite aus einem Programm, 
die Menge des Listings, die gleichzeitig auf dem Bild¬ 
schirm erscheint. 

Seriell - in Folge, Bit für Bit eingespeicherte oder aus¬ 
gegebene Information. 

Signal - ein elektrischer Impuls, der Daten trägt. 
Silicon Valley - der gängige Name für ein Gebiet in 
Kalifornien, wo viele Halbleiter-Firmen ihren Sitz haben. 
SNOBOL - eine höhere Programmiersprache. 
Software - das Programm, das vom Anwender in den 
Computer eingegeben wird und ihm mitteilt, was er 
zu tun hat. 

Software-kompatibel - bezieht sich auf zwei verschie¬ 
dene Computer, die für den jeweils anderen geschrie¬ 
bene Programme verarbeiten können. 

Speicher - in einem Computer gibt es zwei Arten von 
Speichern. ROM (read-only memory = Nur-Lese-Spei¬ 
cher) ist der Speicher, der im Computer bereits pro- 
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grammiert ist und dem Computer mitteilt, wie er Ent¬ 
scheidungen treffen und arithmetische Berechnungen 
ausführen soll. Dieser Speicher wird vom Abschalten 
des Computers nicht betroffen. Der zweite Typ ist RAM 
(random access memory = Speicher mit wahlfreiem 
Zugriff). Er nimmt das Programm auf, das Sie über die 
Tastatur eingeben oder über Kassette oder Diskette 
überspielen. Bei den meisten Computern „vergißt“ der 
Computer den Inhalt von RAM, wenn Sie abschalten. 
Sprache - Computersprachen werden aufgeteilt in drei 
Bereiche: höhere Programmiersprachen wie BASIC, dem 
Englischen ziemlich nah und vom Anwender relativ 
leicht zu gebrauchen, niedere Programmiersprachen 
wie Assembler, die kurze Bezeichnungen im Zusammen¬ 
hang mit dem Englischen verwenden (ADD für addieren 
und RET für Retum); und Maschinencode, der mehr oder 
weniger direkt mit der Maschine verkehrt. 
Sprungbefehl - ein Befehl, der den Computer anweist, 
zu einem anderen Teil des Programms zu gehen, wenn 
das Ziel dieses Sprungs vom Ergebnis einer eben aus¬ 
geführten Berechnung abhängt. 

Statistischer Speicher - ein nichtflüssiges Speicher¬ 
aggregat, das Information behält, solange der Computer 
läuft, aber keine zusätzlichen Stromstöße benötigt, um 
den Inhalt zu bewahren. 

Subroutine - Subroutine = Unterprogramm, Teil eines 
Programms, zu dem während der Ausführung des Haupt¬ 
programms oft Zugang erfolgt. Eine Subroutine endet mit 
einem Befehl, zu der Zeile nach derjenigen zurückzu¬ 
kehren, die das Unterprogramm aufgerufen hat. 
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T 

Teletext - Information, die im oberen Teil eines Fern¬ 
sehbilds übermittelt wird Erfordert ein Spezialgerät zur 
Entschlüsselung, um den Bildschirm mit Text zu füllen. 
Terminal - ein Gerät, unabhängig von der Zentralein¬ 
heit. Es besteht in der Regel aus einer Tastatur und 
einer Kathodenstrahlröhre. 

Time Sharing - Time sharing = Teilnehmerbetrieb, ein 
Verfahren, bei dem eine Anzahl von Anwendern Zugang 
zu einem Großcomputer hat, der in rascher Folge von 
einem Anwender zum anderen schaltet, so daß jeder 
Anwender den Eindruck hat, der Computer stehe ihm zu 
diesem Zeitpunkt allein zur Verfügung. 

U 

Überlauf - eine Zahl, die für den Computer zu groß 
oder zu klein ist, als daß der sie verarbeiten könnte. 
UHF - Ultra High Frequency (300-3000 Megahertz) 
= UKW 

Uhr - Zeitgeber im Computer, der seine Operationen 
synchronisiert. 

Ultraviolettlöschung - Zum Löschen von EPROMs 
(siehe dort) muß UV-Licht verwendet werden. 

V 

Variable - ein Buchstabe oder eine Kombination von 
Buchstaben und Symbolen, die der Computer beim Lauf 
eines Programms einem Wert oder Wort zuteilen kann. 
VDU - Abkürzung für Visual Display Unit = Sichtgerät. 
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W 

Wahrheitstabelle - eine mathematische Tabelle, die 
alle möglichen Ergebnisse einer Booleschen logischen 
Operation enthält und die Ergebnisse anzeigt, die Sie 
durch verschiedene Eingabekombinationen erhalten. 
Wort - eine Gruppe von Zeichen oder eine Folge von 
Binärziffem, die eine Informationseinheit darstellen und 
einen einzigen Speicherplatz besetzen. Der Computer 
verarbeitet ein Wort als einen einzigen Befehl. 
Word-Processor - Textsystem, eine besonders intelli¬ 
gente Schreibmaschine. Der Schreiber kann damit Text 
verändern, verschieben, Randsteuerung bewerkstelli¬ 
gen und auf dem Bildschirm notfalls ganze Absätze 
umstellen, bevor die Information an einen Drucker aus¬ 
gegeben wird. Textsysteme verfügen in der Regel über 
Speicher, so daß Standardbriefe und die Texte von früher 
verfaßten Briefen gespeichert werden können. 

Z 

Zweite Generation - doppelteBedeutung.Einmalsind 
Computer gemeint, die Transistoren verwenden, im 
Gegensatz zu Computern der ersten Generation, die 
Radioröhren benutzten. Zweite Generation kann auch 
die zweite Ausgabe eines Programms meinen; nach¬ 
folgende Generationen werden durch immer mehr Rau¬ 
schen geschädigt. 






Dieses Buch bietet eine Fülle von nützlichen 
und wertvollen Anregungen und Programm- 
Beispielen. Es Ist für den Anfänger ebenso 
wie tür den Fortgeschrittenen geeignet. 

Das Buch enthält Hinweise zur Verbesserung 
der Struktur selbstgeschriebener Pro¬ 
gramme, aber auch -programmlerfertlge", 
universell verwendbare Programme. Dem 
Leser werden lundlerte Informationen über 
die Arbeitsweise seines ZXBl-Computers ver¬ 
mittelt. Ferner gibt der Autor konkrete 
Hinweise zur Programmierung ln Maschinen¬ 
sprache. Hierzu gehören vollständige 
Programme zum Eingeben ln Maschinen¬ 
sprache, Ausgeben von Speicher-Inhalten, 
Kombinieren von Programm-Modulen. 

Der andere Inhaltsschwerpunkt des Buches 
liegt aut der Beschreibung zahlreicher 
Spiele, die auslührllch lm theoretischen 
Teil ln Ihrer Funktion erarbeitet werden. 
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Ein Heimcomputer wächst täglich um viele Di¬ 
mensionen. Bei der Erschließung dieser Dimensio¬ 
nen ist SPIELE FÜR IHREN ZX81 ein hilfreicher 
Freund. Seine 23 Spiele mobilisieren die Intelligenz 
und Phantasie des ZX81-Besitzers auf besonders raf¬ 
finierte und vielfältige Art. Zugleich ist es ein Buch, 
durch das der Spieler eine Menge dazulernen 
wird. Durch die Beschäftigung mit den Listings 
wird er mit vielen Tricks und Techniken vertraut, 
die dann auch für das individuelle Programmie¬ 
ren nützlich sind. Herausgeber Tim Hartneil und 
Autor Mark Charlton, zwei der bekanntesten 
Heimcomputer-Publizisten, halten den Leser aus¬ 
drücklich an, die Programme nicht nur in der hier 
vorgelegten Form durchzuführen. Der wahre 
Spaß fängt erst damit an, daß man versucht, die 
Programme nach dem eigenen Geschmack zu 
variieren und zu verbessern. Es gibt keine »perfek¬ 
ten Programme«, und auch die Spiele dieses Bu¬ 
ches können von der Erfindungsgabe und Spiel¬ 
freude des Benutzers nur profitieren. 

Wie die weiteren Bände dieser Reihe — SPIELE FÜR 
IHREN ZX SPECTRUM, SPIELE FÜR IHREN ATARI, SPIE- 
LE FÜR IHREN ORIC, SPIELE FÜR IHREN DRAGON, 
SPIELE FÜR IHREN BBC-MICRO, SPIELE FÜR IHREN 
VIC 20 und SPIELE FÜR IHREN TRS - enthält SPIELE 
FÜR IHREN ZX81 ein kleines Lexikon mit der Erklä¬ 
rung der wichtigsten Computer-Begriffe. 
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